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Abstract SEQ 0003 


ABSTRACT 


Program DZTUD measures the time required ond GAP 
sizes produced by the TMO2/TU16 Magtape 
Drive/Slave 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS. AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE. 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BP! SKEW TAPE. 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. iF THE ERROR 1S DATA RELATED(PARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 


1F THE TIME CHECK IS OUT OF RANGE, IT 1S PRINTED 
AS AN OUT OF RANGE ERROR 
















TMOZ ORIVE FUNCTION TIMER 
Requirements 


CHAPTER 1 
REQUIREMENTS 


POP-11 Family Central Processor with 4K memory with up to 64 TM11/TMO2 
controller/magtape stations 


XXXPROGRAM CAN BE RUN ON A PROCESSOR THAT DOES NOT HAVE A HARDWARE SWITCH REGISTER. 


A SOFTWARE SWITCH REGISTER (SWREG) LOC. 176 IS AUTOMATICALLY SELECTED (REFER TO 
CHAPTER 3. FOR DESCRIPTION OF HOW TO DYNAMICALLY LOAD LOC.176) xk 


1.1 OPTIONAL EQUIPMENT USED 


1. none 


1.2 STORAGE re 


Program loads and runs in the first 4K of memory. 


1.2 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION? 


MAINDEC-11-OZ2TUC CONTRO! LOGIC TEST 
MAINDEC-11-DZ2TUB BASIC FUNCTION TEST 
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Loading and Starting Procedure 


CHAPTER 2 
LOADING AND STARTING PROCEDURE 


The procedure is as follows 
Lood program “ the Absolute Loader 
Lood address = 
Set operating Dy oe 
Press start 


KKKIF THE SOFTWARE SWITCH REGISTER 1S USED THEN THE PROGRAM WILL TYPE SWR=XXXXXX NEW= 
THIS WILL ALLOW LOC. 176 TO BE CHANGED BEFORE THE START OF THE TESTING. (REFER TO CHAPTER 3 FOR OPTIONS) 


Program will request DRIVE (TMOZ2) and SLAVE (TUI6) numbers to be 
tested. Type ORIVE/SLAVE numbers with a comma (,) between each 
DRIVE/SLAVE to be tested. 


REQUESTS FOR TAPE SPEED TESTS AND NRZ ONLY MODE WILL BE MADE. 

RESPONSE TO TAPE SPEED ONLY REQUEST WITH A ONE (1) WILL CAUSE 

THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY. THIS IS THE ONLY WAY 

TO TEST TAPE SPEED 

NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPI DATA TIME TEST. 
Type Control U ( U) to delete line typed or rubout te delete last 
character(s). 


Progrom will publish times required and report errors. 

21 ACTI1 OPERATION 
WHEN RUN IN ACT11 QV OR AA MODE. THE PROGRAM WILL: 
A) 


HALT ON ERROR 
B) RUN QV FOR THE FIRST PASS 
C) NOT PRINT A TITLE : 
D) SELECT THE DEFAULT CONTROLLER ADDRESS 
—E) | TEST ALL AVAILABLE DRIVES 
F) NOT RUN SKEW TESTS (31 & 32) 


G) ALLOW NRZ & PE MODE TESTING 


SEQ 0005 
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CHAPTER 3 
SWITCH SETTINGS 


1F THE DIAGNOSTIC 1S RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER 1S USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
1F THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR iF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX 1S THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


AFTER THE ''NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED? 

IF A <CR> 1S THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


1F A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


— 


1 


— 


2 


3 


— 


— 


SW15 
(100000) 


SW14 
(040000) 


SW13 
(020000) 


SW11 
(904000) 


SW10 
(002000) 


SWO9 
(001000) 

SWO7 
(000200) 


SWO6 
(000100) 


SW5-0 


HALT ON ERROR 


LOOP SUBTEST 
INHIBIT ERROR 
TYPEOUT 
INHIBIT SUB- 
TEST ITERATION 


INHIBIT 
FUNCTION TIME 
PUBLICATION 


RING BELL 
ON ERROR 


HALT AFTER 
SELECTED TEST 


CONTINUOUS 
CYCLE 


TEST SELECT 


H 1 

This switch when set will halt the 
rocessor when an error is detected. 
he PC+2 and PSW at the time of the 
error is stored on the stack. Pressing 
continue will cause the error to be 
typed (if selected) and further testing 
resumed. 


This switch when set loops the current 
subtest regardiess of error condition. 


This switch when set inhibits error 
typeout. 


This switch when set causes each subtest 
to be executed only once. (Initial 
Startup Only) 


This switch when set will inhibit the 
printing of the function times. (See 
Chapter 7.1) 


This switch when set will ring the bell 
on the TTY when an error is detected. 


This switch when set will cause the 
program to HALT after the test selected 
in SWO5-SWOO is executed. 


THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO RUN CONTINUOUSLY UNTIL 
STOPPED BY THE OPERATOR. 


THE PROGRAM WILL HALT AFTER EXECUTION 
OF THE TEST SELECTED WHEN SWO7 IS SET. 


SEQ 0007 
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CHAPTER 4 
ERRORS 


Two types of errors are detected by this program, hardware errors and 
incorect function times. 


4.1 ERROR TYPEQUT FORMAT ‘HARDWARE): DATA RELATED ERRORS (!tE: PARITY ERROR) ARE PRINTED AS SOFT ERRORS 
AND HAVE NO EFFECT ON TIME. 


TEST # XXXXXX DEVICE ERROR 


cS1 WE BA FC CS$2 OS ER1 
oacoca bbbbbb ceecce dddddd eeeeee ffffff gaagagg 


where: 


XXXXXX = Test Number 
AARAAA-II1111 = Contents of Tope Register 172440-172454 


4 2 ERROR TYPEQUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <AAAAAA-BBBBBB> ACTUAL = CCCCCe 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 


5.1 . SCOPE 

The SCOPE Routine is called by the scope (EMT) instruction at the 
stort of each subtest. The . Scope routine performs the following 
functions: 


1. Loads RS with base address 
Types Time Line <SWO8> 


Provides continuous loop <SW14> 


2 

3 

4. Moves function time into table 
5. Ovtputs Line Item if selected 
6 


Provides HALT on test <SWO7> 


™ 


Deiays 350MS before starting test 
8. Init's Orive/Slave 
9. Clears the error flag (ERFLG) 
The routine monitors SW1i4, SW11, SW10, SWO3. and SWO7. 


KXKTHIS ROUTINE WILL CHECK FOR CNTL G< G> BY DOING A JSR PC, CKSHR 
(REFER TO CHAPTER 3 FOR DESCRIPTION) 


5.2 PUBLISH 


The Publish Routine is called from the Scope Routine if SWi0 is equal 
to O (Pubiish Time Document). The routine will print a “SINGLE LINE 
ITEM" each time it is called. 





SEQ 0009 
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Subroutine Abstracts 


\ 
5.3 . HLT 
The HLT Routine is called by the HLT (Trap) instruction when an error 
is detected. A HLT (TRAP) instruction formats the error information 


as y 2 in Sec 4.1. A HLT+1 (TRAP+1) formats tHE ERROR AS SHOWN IN 
SEC 4. 2. 


KKXXTHIS ROUTINE WILL CHECK FOR A CNTL G < G> BY DOING A JSR PC. CKSWR 
(REFER TO CHAPTER 3 FOR DESCRIPTION)> 


SEQ 0010 
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Miscellaneous 


CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 


The Stack Pointer is initailly set to 500 and is reset to 500 by the 
SCOPEA Routine. 


6.2 EXECUTION TIME 
When SW11=1 (Inhibit Iterations) the time required is 2 min. 


When SW11=0 (iterate Subtests) the time required is 9 min. 


SEQ 0011 
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CHAPTER 7 
PROGRAM DESCRIPTION 


7.1 SAMPLE TIME DOCUMENT 


TYPE FIRST ADDRESS OF CONTROLER 172440 

TYPE TMOZ ORIVE #'S TO BE TESTED 0 

FOR TMOZ ORIVE O- TYPE SLAVE #'S TO BE TESTED 7 

TAPE SPEED TESTS ONLY? (YES/NO = 170) O 

NRZ ONLY? (YES/NO = 1/70) O 
KESKAAAAAAALTARAAAAAAA AAA AAA AAAAAAAAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAT AE 
TNOZ DRIVE FUNCTION TIMES- DRIVE # O SLAVE # 7 9 CHAN. SER. # 5009 


PS DE DE DE FE FE DE FE FE DE DE DE FE FE DE-DE DE FE FE BE DE FE FE FF FE TE 


FUNCTION TIME (SPECIFICATION) TIME (ACTUAL ) 

WRITE FROM BOT RANGE =< 188000- 184000> ACTUAL =184740 
WRITE START RANGE = <009500-008700> ACTUAL =009120 
WRITE SHUTDOWN RANGE = <008900-008500> ACTUAL =008840 


WRITE SETTLEDOWN 
READ FROM BOT 

READ START 

READ SHUTDOWN 

READ SETTLEDOWN 

READ REV START 

READ REV SHUTDOWN 
READ REV SETTLEDOWN 
TURN AROUND DELAY F-R 
TURN AROUND DELAY R-F 
GAP SIZE-STOP HALF 
GAP SIZE-START HALF 
GAP SIZE-INTERRECORD 
GAP CONS!SANCY 

DATA TIME-200 BPI 
DATA TIME-S56 BP! 
DATA TIME-S8OOBP | 

DATA TIME-16008P | 
ERASE GAP TIME 

WRITE FILE MARK 


RANGE = <013500-008100> 
RANGE =< 152000-149000> 
RANGE = <003200-002600> 
RANGE = <004650-004250> 
RANGE = <01 3500-008100> 
RANGE =<003200-002600> 
RANGE = 003700-003300> 
F.ANGE = <01 3500-008100> 
RANGE =<016700-010700> 
RANGE = <016700-010700> 
RANGE = <012900-009500> 
RANGE = <011800-008500> 
RANGE =<014800-013700> 
RANGE = <014000-012400> 
RANGE = (024 100-023100> 
RANGE = <024000-023000> 
RANGE = <024000-023000> 
RANGE = <025100-024100> 
RANGE =< 101000-099000> 
RANGE =< 105000- 103000> 


ACTUAL =010970 
ACTUAL =150580 
ACTUAL =002740 
ACTUAL =004 360 
ACTUAL=010970 
ACTUAL =002740 
ACTUAL =003520 
ACTUAL =010970 
ACTUAL =013600 
ACTUAL =013660 
ACTUAL =012200 
ACTUAL =010520 
ACTUAL =014500 
ACTUAL =013040 
ACTUAL =023460 
ACTUAL =023350 
ACTUAL =023400 
ACTUAL =024470 
ACTUAL =099510 
ACTUAL =103990 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER 172440 

TYPE TMOZ DRIVE #'S TO BE TESTED O 

FOR TMOZ2 DRIVE O- TYPE SLAVE &'S i BE TESTED 7 : 

SPEED TESTS ONLY? (YES/NO = 1/70) 

MTT Te 
XTMOZ DRIVE FUNCTION TIMES- DRIVE # O SLAVE # 7 9 CHAN. SER. # 5009 


«TN 
XFUNCTION TIME (SPECIFICATION) TIME CACTUAL ) 
ATAPE SPEED FWD RANGE = <022700-021700> ACTUAL =022500 


4TAPE SPEED REV RANGE = <022700-021700> ACTUAL =022500 


SEQ 0013 
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7.2 TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE sony ee 
TEST NO. /NAME RELATED ADJUSTMENTS ASSOCIATED HARDWARE 
1. WRITE FROM BOT XNONE 418911 ROMXM8903 ACCL CNTR 
2. WRITE START x" 2.8 * 
3. WRITE SHUTDOWN : Ss eee eee 
4. WRITE SETTLEDOWN “By 418910 SETTLEDOWN ONE SHOT 
5 READ FROM BOT e * 4M8911 ROM&M8903 ACCL CNTR 
6 READ START .* s*e- 
7, READ SHUTDOWN | > :.* 9.% 
10. READ SETTLEDOWN :* XM8910 SETTLEDOWN ONE SHOT 
11. READ REVERSE START ;° 448911 ROMEM8903 ACCL CNTR 
12. READ REVERSE SHUTDOWN : s"a4* 
13. READ REVERSE SETTLEDOWN : 418910 SETTLEDOWN ONE SHOT 
14. TURN AROUND F-R :.* 4M8911 ROMKM8903 ACCL CNTR 
15 TURN AROUND R-F :.* ,"*@°* 
16. GAP SIZE-STOP HALF XFURD/REV SPEED-START/STOP-RAMPS XCAPSTAN SERVO LOOP 
17. GAP SIZE-START HALF XSAME AS IN TEST 16 ys . 8 


20. GAP SIZE INTERRECORD XFWO/REV SPEED ...% e " 


TMOZ DRIVE FUNCTION TIMER 


21. 


GAP CONSISTENCY 


C 
PAGE 14 
XSAME AS IN TEST 16 


XTEST NUMBER 22 IS RESERVED FOR FUTURE USE 


23. 


24. 


25. 


32. 


KKKKXNOTE: 


DATA TIME 200 BPI 


DATA TIME 556 BPI 


DATA TIME 800 BPI 


DATA TIME 1600 BP! 


ERASE GAP TIME 


WRITE FILE MARK 


TAPE SPEED-F ORWARD 


TAPE SPEED-REVERSE 


1F TIME PROBLEMS APPEAR IN T1 THRU T30, RUN TAPE SPEED TESTS FIRSTAXAKKEK 


XNONE 


XFWD SPEED 


KREVERSE SPEED 


KWRITE CLOCK 


x we w x we oe ow 


XCAPSTAN SERVO LOOP 


XCAPSTAN SERVO LOOP 


SEQ 0015 
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a 


é 


.3 


TEST DESCRIPTIONS: 


THE FIRST THIRTEEN (13) TESTS (T1 - T15) ARE CHECKS OF THE 
ROM CIRCUITS IN THE TU16 (M9811). THE ACCL COUNTER IN THE 
TMOZ (M8903). AND THE SETTLEDOWN ONE SHOT (M8910). 


Ti. WRITE FROM BOT: 


THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
MOVE THE THPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 
1. ASSURE TAPE 1S STOPPED AT BOT 

2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

: aoe FROM GO TO ACCL RESET IS BOT DELAY 


T2. WRITE START: 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 

Ti. HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 

FROM BOT. 

1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

4. TIME FROM GO TO RESET OF ACCL 1S START DELAY 

5. STOP 


T3. WRITE SHUTDOWN: 


THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
ASSURES, IN PART. A PROPER INTERROCORD GAP. 
1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT 1S STOPPED 
2. ISSUE A WRITE COMMAND. 
3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SOWN) 
4. TIME FROM FC=0 TO ASSERTION OF SDWN IS 
THE SHUTDOWN TIME. 
5. STOP 


TY. “WRITE SETTLEDOWN: 


THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 

BE STOPPED. THIS !S A PART OF THE GAP TIMING IN LOGIC. 

THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 

WILL BE MEASURED IN A LATER TEST. 

LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE COMMAND 

MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SOWN TO RESET OF SDWN IS THE 

Na DELAY 


nw Fun- 


SEQ 0016 
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TS. READ FROM BOT 
THIS MEASUREMENT 1S MADE EXACTLY AS THE WRITE 


MEASUREMENT IN Ti. USE THE SAME RECORD THAT WAS 
WRITTEN IN T1. 


PP oer 


REWIND TO BOT 

ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
READ FORWARD 1 RECORD. 

MONITOR BIT 15 OF TC (ACCL) 

HL FROM GO TO ACCL IS BOT DELAY 


To. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN 72. 


WEG 


T?. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1 


‘ MONITOR BIT 15 OF TC (ACCL) 


cs FROM GO TO RESET OF ACCL IS START DELAY 
STO 


READ SHUTDOWN: 


THIS TEST MEASURES THE SAME DELAY AS IN T3. 


y Free 


WRITE 1 RECORD, THEN BACKSPACE OVER IT. ASSURE TAPE IS STOPPED. 
READ FORWARD THE RECORD WRITTEN IN STEP 1. 

MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN) 

TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 

i By SHUTDOWN TIME. 


TiC. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T4 


Ftato=— 


m 


WRITE 1 RECORD. THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED 
READ FORWARD THE RECORD WRITTEN IN STEP 1. 
MONITOR BIT 4 OF DS (SOWN) 
TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
on DELAY. 
0 


SEQ 0017 


. & 
THOZ DRIVE FUNCTION TIMER PAGE 17 SEQ 0018 
T1i1. READ REVERSE START: 


a erct aon WILL MEASURE THE START DELAY IN THE REVERSE 
\ 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED 

READ REVERSE THE RECORD ets IN STEP 1. 

MONITOR BIT 15 OF TC (ACCL 

i I a FROM GO TO RESET oF ACCL IS THE START TIME 


Pree 


T12. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED 
2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 
3. MONITOR FRAME COUNTER AND BIT 4 OF OS (SODWN). 
4 TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SOWN=1 ra Pi teen cae td 
WE GENS GENER DUO TMG... -..- hae Sr 3 PG aaa Se a ee ee ee 
5. STOP 


T13. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 
MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
en DELAY 


 PrPPre 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
MONITOR SIT 7 OF DS (ORY) ‘ 
WHEN ORY 1S ASSERTED (EOR). IMMEDIATELY ISSUE A 
READ REVERSE OF THAT RECORD. 
MONITOR BIT 15 OF TC (ACCL). 
TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 
nd TURNAROUND TIME. 
Pp 


N OW fun= 
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T15. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN T14. BUT IN THE 
OPPOSITE DIRECTION. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED 

READ REVERSE 

MONITOR ORY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A READ FORWARD 

MONITOR ACCL (BIT 15 OF TC) 

as FROM GO FORWARD TO ACCL = 1 IS THE TURN AROUND TIME. 
STOP. 


MONOWEWN 


seccanmestennaiidchassicieeneatinenettasiansstinie ~y 
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SEQ 0020 | 
GAP MEASUREMENTS: | 
| 


THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TMOZ OR TU16 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST. HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 

THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 

CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 

STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT. MADE ON THE FLY, OF 

THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


Ti6. GAP’ SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
IN A STOP CYCLE. IN OTHER WORDS. THE DISTANCE INTO 
THE IRG. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED. 

ISSUE A READ REVERSE OVER THE RECORD 

MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 
THE TIME FROM GO=1 TO FC=1 1S THE LENGTH OF THE GAP 

STOP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 


WRITE 1 RECORD. THEN REVERSE OVER IT. ASSURE TAPE 1S STOPPED. 
ISSUE A READ FORWARD 

MONITOR FC FOR FC=1 

TIME FROM GO=1 TO FC=1 1S START DISTANCE 

STOP 


err rrr 


ele al a lh 


T20. GAP SIZE (INTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A SUMMATION OF T16 AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND T17 


1. WRITE 2 RECORDS. 

2. READ REVERSE OVER THE SECOND RECORD 

3. MONITOR ORY (BIT 7 OF DS) 

4. WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

5. MONITOR FRAME COUNT 

6. TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP. . 

?. STOP 
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T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS THE PROPER SIZE. LET US DETERMINE _ we 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

BY WRITING A SERIES OF RECORDS. EACH WITH A DIFFERENT 
DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONITORING 

THEIR INTERRECORD GAPS. ON THE FLY. 


REWIND TAPE TO BOT. 

WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
OF FROM O TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 
BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

READ FORWARD (NON-STOP) OVER THESE 16 RECORDS. EACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (ORY) 
UNTIL THE FRAME COUNT NEXT GOES FROM O TO 1 (FC=1). 

6. THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS 

S) 


7. TOP 
*K(SEE GTIMTBL IN DZTUD LISTING FOR GAP TIMES) *% 


SEQ 0021 


ro ee, 


T22. RESERVED FOR FUTURE USEXKKAE 
T23. DATA TIME AT 200 BPI: 


THIS TEST WILL MEASURE THE T!IME REQUIRED TO WRITE 
ONE (1) INCH OF TAPE AT 200 BFI. 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (200 FRAMES). DATA RATE 

CAN BE VARIFIED 


REWIND TO BOT AND ALLOW TAPE TO STOP 

WRITE A RECORD AT 200 BPI. 

MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

THE TIME FROM FC=FC+1 TO ORY WILL BE THE TIME REQUIFED 
FOR 1 INCH AT THE SELECTED DENSITY 

STOP 


mo fue 


T24. DATA TIME AT 556 BP 
REPEAT STEPS 1 THRIJ 'g OF T23 AT 556 BPI 


125. DATA TIME AT 800 BPI: 
REPEAT STEPS 1 THRU 5 AT 800 BPI 


T26. DATA TIME AT 1600 BPI (PE): 
REPEAT STEPS 1 THRU 5 AT 1600 BPI. 
¥KTHIS TEST 1S NOT EXECUTED IF NRZ ONLYSS 
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T27. ERASE: 
THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 


INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 
THIS TEST WILL ASSURE THAT THE PROPER DISTANCE IS 


ERASED. 

1. LEAVE TAPE AT ITS PRESENT POSITION. 

2. ISSUE AN ERASE COMMAND. 

3. MONITOR DRY (BIT 7 OF DS) 

4. THE TIME FROM GO TO DRY WILL BE THE TIME 


REQUIRED TO ERASE 3 INCHES OF TAPE AND iLL 
— THE DISTANCE. DENSITY 1S NOT A FACTOR. 
STO 


T30. TAPE MARK: 


THIS TEST 1S ALSO A CHECK ON THE THREE (3) INCH GAP. 
WHEN A TAPE MARK IS WRITTEN, A 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT ON TAPE. 


a a aloe 


LEAVE TAPE AT ITS PRESENT POSITION 

!SSUE A WRITE TAPE MARK COMMAND 

MONITOR DRY (BIT 7 OF DS) 

THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
3 INCH GAP. 

STOP 


SEQ 0022 


| 


oe ae 
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T31. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE  . ye 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONL 
WAY TO ASSURE THAT TAPE 1S MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 


ASSURE TAPE 1S STOPPED AT BOT. 

ISSUE A READ FORWARD (800 BP!, NORMAL) 

MONITOR FC FOR FC = 800(10) 

MONITOR FC FOR FC = 8800(10) 

TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 
FOR TAPE TO TRAVEL 10 INCHES 

DIVIDE THE TIME FOR 10 INCHES BY 10. 

od Renna 1S AN AVERAGE SPEED FoR 1 INCH. 

STO 


SEQ 0023 


ONT NEw 


T32. TAPE SPEED REVERSE: 


THIS TEST 1S THE SAME AS TEST 31. BUT SPEED 'S 
MEASURED IN THE REVERSE DIRECTION 


ADVANCE TAPE OFF OF BOT 

ISSUE A READ REVERSE. 

REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 
STOP. 


Fur 
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MACRO SLCTRL 
LISTING CONTROL 
.NLIST aes - CND 


LIST 
.ENABL ABS 
-ENDM = SLCTRL 
.MACRO SSTINST 
;;LOADING AND STARTING PROCEEDURE 
ie LOAD PROGRAM USING THE ABS LOADER 
ii LOAD ADDRESS 200 
a SET SWITCH REGISTER OPTIONS 
a START 
ie STACK POINTER IS SET AT 1100 


.ENDM SSTINST 

.MACRO SCPREG 
>; DEFINITIONS AND REGISTER ASSIGNMENTS 
;;GENERAL REGISTER ASSIGNMENTS 

RO=%0 

R1=%1 

R2=%2 

R3=%3 

R4=%4 

R5=%5 

SP=%6 

PC=%7 

R10=%0 

R11=%3 

R12=%2 

R13=%3 

R14=%4 

R15=%5 


;+REGISTER ADORESSES 
PSW= 177776 +;PROCESSER STATUS WORD 
SLR= 177774 ;;STACK LIMIT REGISTER (11740, 11745) 
PIRQ= 177772 7;PROGRAM INTERRUPT REQ. (11745) 
UBREAK= 177770 +;MICRO-BREAK REGISTER (11745) 
TKS= 177560 +; KEYBOARD CSR 
TKB= 177562 7, KEYBOARD DATA BUFFER REGISTER 
TPS= 177564 +; TELEPRINTER CSR 

‘ TPB= 177566 >; TELEPRINTER DATA BUFFER REGISTER 


.ENDM SCPREG 

MACRO SFPREGS 
/FLOATING POINT REGISTERS 
ACO=%0 


AC1=%1 
AC2Z=%2 
AC3=%3 
AC4=%4 
ACS=%5 


.ENDM SFPREGS 
MACRO SSHOPT 
:; SWITCH REGISTER SWITCH ASSIGNMENTS 


SEQ 0025 
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57 SWI5= 100000 ++HALT ON ERROR SWITCH 

58 SWi4= 040000 ++LOOP SUBTEST SWIT 

59 SWi3= 020000 ++ INHIBIT ITERATIONS SWITCH 

60 SWi2= 010000 +; INHIBIT PASS PARAMETERS SWITCH 

61 SWii= 004000 ++ INHIBIT ERROR TYPEOUT SWITCH 

62 SWid= 002000 +¢;RING BELL ON ERROR SWITCH 

SW9= 001000 ++LOOP ON ERROR SWiTCH 

65 .ENOM SSWOPT 

66 . MACRO REGBOX NAME. ADDRESS, 815.814, 613.812.811.810, 809, 808. 607. B06. BOS. B04. BOS 
67 ‘3 NAME “ADDRESS 

6s F5 mememmw wen ne cee w mem ese nescence eee eee nen ween enn seeecne= 
69 oo | | H | | | ! | | ! | | | | ! ! | 
7 oe 'B15'B14!B13'812'611'610'809'BO8!807'806'805'804 'B803'B802'B01'B00! 
71 ae ! | | | | | | | | | | | ! | | ! | 
4 se b3 a oe) lO ee Oe Oe ee ae ee ee ee oo Soe 0 
75 

7b 

77 

78 

79 

80 .ENDOM REGBOX 

81 . MACRO * SPSWBITS 

82 . ; STATUS REGISTER (PSH) BIT ASSIGNMENTS 

83 C=1 :3C BIT 

84 22 iV BIT 

85 z=4 1:2 BIT 4 

86 N=10 ;7N BIT 
? T=20 as°T° ONT i 

88 : PRTY7=340 «§ ;;PRIORITY LEVEL 7 ~~ 

89 PRTY6=300 - PRIORITY LEVEL 6 

90 PRTYS5=240 ;;PRIORITY LEVEL Ng 

91 PRTY4=200 ;sPRIORITY LEVEL 4 

92 KM=000000. +; KERNEL MODE 

93 $m=040000 +; SUPERVISORY MODE 

ou UM= 140000 +;USER MODE 

95 PKM=000000 +;PREVIOUS KERNEL MODE 

36 PSN=010000 ;;PREVIOUS SUPERVISORY MODE 

97 PUM=030000 ;;PREVIOUS USER MODE 

98 REG=004000 >; SELECT R10-R15 

99 

100 .ENOM SPSWBITS 

101 : . MACRO SCPVEC 

102 : ;, VECTOR ADDRESSES ‘. 

103 ERRVEC=4 >; ADORESS OF ERPOR VECTOR 

104 RESVEC=10 + ADORESS OF RESERVED INST. TRAP VECTOR 

105 TBITVEC?14 ;;RODRESS OF ‘T' BIT TRAP VECTOR 

106 TRIVEC=14 s;ADDRESS OF ‘TRACE’ TRAP VECTOR 

107 BPTVEC=14 +, RAODRESS OF ‘BREAKPOINT’ TRAP VECTOR 

108 lOTVEC=20 ADDRESS OF 107 TRAP VECTOR 

109 PFVECs24 4;RODRESS OF POWER FAIL TRAP VECTOR 

110 EMTVEC=30 ++ ADDRESS OF EMT VECTOR 

111 TRAP YCC=74 + ADDRESS OF TRAP VECTOR 

112 TKVEC= 60 >; ADDRESS OF TTY KEYBORRD INT. VECTOR 
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TPVEC=64 
PARVEC= 114 
PIRVEC=240 
FPEVEC=244 
MMVEC=250 
.ENOM SCPVEC 
. MACRO SLPREGS 
LPS= 177514 
LPB= 177516 
LPVEC= 200 
LPLVL= 200 
ENOM  S$LPREGS 
MACRO S$TCREGS 
TCST= 177340 
TCCM= 177342 
TCWC= = =—177344 
TCBA= 177346 
TCOT= 177350 
TCVEC= 214 
TCLVL= 240 
.ENDM S$TCREGS 
.MACRO SSTKPTR A 
7; INITIAL STACK POINTER SETTING 
STKPTR= A 
ENDM SSTKPTR 
MACRO SRFREGS 
RFOCS= 177460 
RFWC= 177462 
RFCMA= 177464 
RFDAR= 177466 
RFDARE= 177470 
RFODB= 177472 
RFMA= 177474 
RFADS= 177476 
RFVEC= 204 
RFLVL= 240 
ENDM SRFREGS 
MACRO SRP4YREG 
RPCSi= 172000 
RPWC= 172002 
RPBA= 172004 
RPOST= 172006 
RPCS2= 172010 
RPDSi= 172012 
RPER1= 172014 
RPAS= 172016 
RPLA= 172020 
RPDB= 172022 
RPMR= 172024 
RPOT= 172026 
RPSN= 172030 
RHOF= 172032 
RPCA= 172034 
RPCC= 172036 


3 
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s;ADDRESS OF TTY PRINTER INTERRUPT VECTOR 
;;ADORESS OF MA/MF PARITY ERROR VECTOR 
++ADDRESS OF PIRQ VECTOR 

+;ADORESS OF FLOATING POINT INT. VECTOR 
;;ADDRESS OF MEM MGMT ERROR TRAP VECTOR 


;;ADDRESS OF LINE PRINTER STATUS REG 
;;AND PRINTER BUFFER REGISTER 

+; INTERRUPT VECTOR 

7-PRIORITY LEVEL 4 


++ADDRESS OF DECTAPE STATUS REG 
++ADDRESS OF DECTAPE COMMAND REG 
+;ADDRESS OF DECTAPE WORD COUNT REG 
++ADDRESS OF DECTAPE BUS ADDRESS REG 
+;ADDRESS OF DECTAPE DATA REGISTER 
;+ADDRESS OF DECTAPE INTERRUPT VECTOR 
+AND INTERRUPT LEVEL (5) 


++ INITIAL 


;; ADDRESS 
>; ADDRESS 
+; ADDRESS 
;; ADDRESS 
7; ADDRESS 
>; ADDRESS 
;; ADDRESS 
7; ADDRESS 


STACK POINTER 


DCS REGISTER 

WC REGISTER 

CMA REGISTER 

DAR REGISTER 

DAE REGISTER 

DATA BUFFER REGISTER 
MA REGISTER 


F ADS REGISTER 


+; INTERRUPT VECTOR ADDRESS 
+7AND PRIORITY LEVEL 


;; ADDRESS 
>; ADDRESS 
+> ADDRESS 
>, ADDRESS 
7; ADDRESS 
+; ADDRESS 
;; ADDRESS 
7; ADDRESS 
+; ADDRESS 
>; ADDRESS 
>; ADDRESS 
>; ADDRESS 
;; ADDRESS 
>, ADDRESS 
7; ADDRESS 
+; ADDRESS 


CS1 REGISTER 

WORD COUNT REGISTER 

BUS ADDRESS REGISTER 
DESIRED SECTOR/TRACK REG. 
CS2 REGISTER 

DSi REGISTER 

ER1 REGISTER 

ATTENTION SUMMARY REG. 
LOOK AHEAD REGISTER 

DATA BUFFER REGISTER 
MAIN. REGISTER 

DRIVE TYPE REGISTER 
SERIAL # REGISTER 

FORMAT REGISTER 

DESIRED CYL. ADDRESS REG. 
CURRENT CYLINDER ADDRESS PEG 


SEQ 0027 
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169 RPERZ= 172040 ++ADDRESS OF ERZ REGISTER 
170 RPER3= 172042 ++ADDRESS OF ERZ REGISTER 
171 RPECi= 172044 +;ADDRESS OF ECC POSITION REGISTER 
172 RPECZ= 172046 ++ADDRESS OF ECC PATTERN REGISTER 
173 .ENOM SRP4REG , 
174 .MACRO SRSREGS 
175 RSCSi= 172040 ++ADDRESS OF CONTROL REGISTER 
176 RSWC= = 172042 ++RDDRESS OF WORD COUNT REGISTER 
177 RSBA= 172044 ++ADDRESS OF BUS ADDRESS REGISTER 
178 RSDA= 172046 ++ADDRESS OF DISK ADDRESS REGISTER 
179 OSCS2= 172050 +;ADORESS OD CSZ REGISTER 
180 RSDS= 172052 ++ADDRESS OF DRIVE STATUS REGISTER 
181 RSER= 172054 ++ADDRESS OF ERROR REGISTER 
182 RSAS= 172056 ++ ADDRESS OD ATTENTION SUMMARY REGISTER 
183 RSLA= 172060 +;ADDRESS OF LOOK AHEAD REGISTER 
184 RSOB= 172062 +;ADORESS OD DATA BUFFER REGISTER 
135 RSMR= 172064 ++ ADDRESS OF MAINTENANCE REGISTER 
186 , RSOT= 172066 ++ADDRESS OF DRIVE TYPE REGISTER 
187 RSVEC= 204 - 44 INTERRUPT VECTOR ADDRESS 
188 RSLVL= 240 ++PRIORITY LEVEL ON INTERRUPT 
189 .ENDM S$RSREGS 
day .MACRO SKWPREGS 
191 
192 KWPCSR= 172540 
193 KWPCSB= 172542 
194 KWPCTR= 172544 
195 KWPVEC= 0 
196 KWPLVL= 300 
197 .ENDM SKWPREGS 
198 
199 .MACRO SRKREGS 
200 RKDS= 177400 +;DRIVE STATUS REGISTER 
201 RKER= 177402 7 ERROR REGISTER 
202 RKCS= 177404 +;CONTROL STATUS REGISTER 
203 RKWC= 177406 +;WORD COUNT REGISTER 
204 RKBA= 177410 +;CURRENT BUS ADDRESS REGISTER 
205 RKDA= = 177412 +>-DISK REGISTER REGISTER 
206 RKMR= 177414 +;MAINTENANCE REGISTER 
207 RKDB= 177416 +;DATA BUFFER REGISTER 

. 208 RKVEC= 000220 +;ADORESS OF INTERRUPT VECTOR 

* 209 , RKLVL= 000240 *;PRIORITY LEVEL (5) 
210 
211 .ENDM SRKREGS 
212 .MACRO SRPREGS 
213 RPDS= 176710 +, ADDRESS OF DRIVE STATUS REGISTER 
214 RPER= 176712 +;7ERROR REGISTER 
215. RPCS= 176714 +-CONTROL STATUS REGISTER 
216° RPWC= 176716 ++WORD COUNT REGISTER 
217— RPBA= 176720 +;BUS ADDRESS REGISTER 
218 RPCA= 176722 +;CYLINDER ADORESS REGISTER 
219 RPDA= 176724 +:DISK ADDRESS REGISTER 
220 RPVEC= 254 +; VECTOR ADDRESS 
221 RPLVL= 240 7;PRIORITY LEVEL (6) 
222 
223 .ENDM S$RPREGS 


224 . MACRO SRHREGS 
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225 ++RH11 REGISTERS . 
226 RHDOCS=172040 ;;AODRESS OF DISK CONTROL & STATUS REG 
22? RHWC=172042 ++ADORESS OF WORD COUNT REGISTER 
22 RHCMA=172044 +; ADDRESS OF CURRENT MEMORY ADOR REG 
229 RHDAR=172046 +; ADDRESS OF DISK ADDRESS REGISTER 
230 RHDAE=172050 ee Eee OF DISK ADDRESS EXTENSION 
231 AND ERROR REGISTER. 
232 RHDBR=172052 ;; ADDRESS OF DISK DATA BUFFER REGISTER 
233 RHMA=172054 3; ADDRESS OF MAINTENANCE REGISTER 
234 RHADS=172056 ++ ADDRESS OF DISK SECTOR REGISTER 
235 RHVEC= 300 +;ADDRESS OF RH11 INTERRUPT VECTOR 
$4] RHLVL= PRTY6 +;AND PRIORITY LEVEL (6) 
238 oe SRHREGS 
239 MACRO SRHBITS 
240 ;7RH11 DISK CONTROL & STATUS REGISTER (RHOCS) 
241 GO=1 + GO 
242 NOOP=0 33 NO= OPERATION 
243 WRITE=2 i+ WRI TE 
244 READ= 4 ; READ 
245 WCHK= 6 WRITE CHECK 
246 XXXX= «10 
247 Al6= 20 ++EXTENDED ADDRESS BIT 16 
248 Al7= 40 ++EXTENDED ADDRESS BIT 17 
249 1E= 100 © +; INTERRUPT ENABLE 
250 ROY= 200 ++ READY 
251 RHCLR= 400 7+ CLEAR 
252 MA= 1000 +; MAINTENANCE MODE 
253 WLO= 2000 +;WRITE LOCKOUT ERROR 
254 DOF = 4000 +;DISK OVERFLOW 
255 MXF = 10000 +sMISSED TRANSFER ERROR 
256 WCE= 20000 7;WRITE CHECK ERROR : 
257 DER= 40000 +;DATA ERROR f 
as ERR= 100000 +7 ERROR 
260 ;DISK ADDRESS EXTENSION & ERROR REGISTER (RHDAE) 
261 DRL= 200 ++>DATA REQUEST LATE 
262 CMAINH= 400 +7CMA INCREMENT INHIBIT 
263 PWR= 2000 +;POWER FAULT 
264 ILLACC= 40000 +; ILLEGAL ACCESS 
265 CLKERR= 100000 ~ +;CLOCK ERROR 
266 j 
267 >; MAINTENANCE REGISTER (RHMA) 
268 MC= 1 ;; MAINTENANCE CLOCK 
269 MW= 2 +; MAINTENANCE WINDOW 
270 Miz 4 +; MAINTENANCE INDEX 
271 MRD= 1d +;MAIN READ DATA 
272 SEP= 20 ++SECTOR PULSE 
273 ADDCON= 40 +;ADDRESS CONFIRMED 
274 LSR= 100 +;LOAD SHIFT REGISTER 
275 WR= 200 7; WRITE 
276 RD= 400 ++READ 
277 MWD= 1000 +; MAINTENANCE WRITE DATA 
278 LWi= 2000 *+LAST WORD + 1 
279 STR= 4000 +; STROBE BUFFER 


280 RWCLK= 10000 >;READ OR WRITE CLOCK 
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.ENDM S$RHBITS 
MACRO SNTREGS 

++ TM11 MAGNETIC TAPE REGISTERS 
MTS= 172520 


MTD= 172530 
MTRD= 172532 
MTVEC= 224 
MTLVL= 


240 
.ENOM SMTREGS 


.MACRO SMMBITS 
>; MEM og > REGISTER SSRO BIT ASS 
NMM=1 


TE=1000 
OSTF=4000 
MMTF =10000 
AVA=20000 
PLA=40000 
NRA= 100000 


>: SR1 BIT ASSIGNMENTS 
$1=10 


02=10000 
0M1=174000 
0N2=170000 
DRO=000 
DR1=400 


;; INTERRUPT VECTOR 
>+ LEVEL 5 


|GNMENTS 
;;ENABLE MEMORY MANAGEMENT 
iO Saal PAGE 0 


7 


>; 'D' SPACE PAGE 

33 "t' SPACE PAGE 

;;USER PAGE 

+; SUPERVISOR PAGE 

>; KERNEL PAGE 

3; INSTRUCTION COMPLETE 
;; DESTINATION MODE 

7; TRAP ENABLE 

;;O0ST ABORT FLAG 

;; MEMORY MANAGEMENT TRAP FLAG 
;;ACCESS VIOLATION ABORT 
;;PAGE LENGTH ABORT FLAG 
>; NON-RESIDENT ABORT 


SEQ 0030 
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337 OR2=1000 
338 DR3=1400 
339 OR4=2000 
340 OR5=2400 
341 DR6=3000 
342 DR7=3400 
343 
344 ;;SR3 BIT ASSIGNMENTS 
34s UDE = ;;USER 'D' SPACE ENABLE 
246 SDE = ; ;; SUPERVISOR 'D' SPACE ENABLE 
34? KDE=4 ;;KERNEL 'D' SPACE ENABLE 
348 
349 
350 /ENOM © SMMBITS 
351 “MACRO SMMREGS 
352 ;;MEMORY MANAGEMENT REGISTER ADDRESS ASSIGNMENTS 
353 SRO=177572 ;;RDDRESS OF MEM MGMT REGISTER SRO 
354 SR12177574 i . SR1 
355 SR2=177576 wedge " “ oe 
et Sons OI cies ape inn Se SR3=172516 “TADORESS OF MEM NGNT REGISTER SR3 
“eo 3? -ENDM  SMMREGS 
‘358 
359 MACRO SUMMREGS 
360 UIPDRO=177600 ;; ADDRESS OF USER '1' PAGE DESCRIPTOR 
361 UIPOR1=177602 >; REGISTERS 
362 UIPDR2=177604 
363 UIPOR3=177606 
364 UIPOR4=177610 
365 UIPORS=177612 
366 UIPDR6=177614 
367 UIPDR7=177616 
368 
369 UDPDRO=177620 >; ADDRESS OF USER 'D' PAGE DESCRIPTOR 
\ 370 UDPDR1=177622 >; REGISTERS 
\ 371 UDPOR2=177624 
372 UDPOR 3=177626 
373 UDPDR4=177630 
374 UDPORS=177632 
37 UDPOR6=177634 
376 UDPDR7=177636 
377 
378 UIPARO=177640 ;;ADDRESS OF USEP *1' PAGE ADDRESS 
37 UIPAR1=177642 > REGISTERS 
380 UIPAR2=177644 
381 UIPAR3=177646 
382 UIPAR4=177650 
383 UIPARS=177652 
384 UIPARG=177654 
385 UIPAR7=177656 
386 
387 UDPARO= 177660 ;; ADDRESS OF USER 'D' PAGE ADDRESS 
388 - UDPAR1=177662 ~ > REGISTERS 
389 : UDPAR 2=177664 
390 UDPAR 3=177666 
391 , UDPAR4=177670 


392 a UDPAR5S=177672 
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UDPAR6=177674 
UDPAR7=177676 


.ENDM SUMMREGS 
MACRO SSMMREGS 


S1PORO=172200 
S1POR1=172202 
S1POR2=172204 
S1IPOR3=172206 
SIPOR4=172210 
SIPORS=172212 
SIPOR6=172214 
SIPOR7=172216 


SOPORO=172220 
SOPDR1=172222 
SOPOR2=172224 
SOPOR3=172226 
SOPDR4=172230 
SOPOR5=172232 
SOPDOR6=172234 
SOPOR7=172236 


SIPARO=17224@ 
SIPAR1=172242 
SIPARZ=172244 
SIPAR3=172246 
SIPAR4Y=172250 
S1PARS=172252 
S1PAR6=172254 
SIPAR7=172256 


SOPARO=172260 
SOPAR 1=172262 
SOPAR2=172264 
SOPAR 3=172266 
SOPAR4=172270 
SDPARS=172272 
SDPAR6=172274 
SDPAR7=172276 


.ENDM SSMMREGS 
. MACRO SKMMREGS 


KI PORO=172300 
KIPOR1=172302 
KIPDR2=172304 
KIPOR3=172306 
KIPDR4=172310 
KIPORS=172312 
KIPOR6=172314 
KIPDR7=172316 


KOPORO=172320 
KOPOR1=172322 
KOPOR2=172324 
KDPDR3=172326 
KOPDR4=172330 
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+; ADDRESS OF SUPERV!SOR 
++DESCRIPTOR REGISTERS 


;;ADDRESS OF SUPERVISOR ' 


+; DESCRIPTOR REGISTERS 


;;ADORESS OF SUPERVISOR ' 


7; ADDRESS REGISTERS 


;; ADDRESS OF SUPERVISOR ‘'D 


7; RODRESS REGISTERS 


;;ADORESS OF KERNEL ‘I' 
>- DESCRIPTOR PEGISTERS 


PAGE 


" PAGE 


" PAGE 


PAGE 


PAGE 


+, ADDRESSES OF KEPNEL ‘'D' PAGE 


> DESCRIPTOR REGISTERS 


SEQ 0032 
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449 KOPOR5=172332 

450 KOPDR6=172334 

ae KOPOR7=172336 

& , 

453 KIPARO=172340 +;ADDRESSES OF KERNEL ‘I’ PAGE 
454 KIPAR1=172342 ++AORESS REGISTERS 

455 KIPAR2=172344 

456 KIPAR3=172346 

45? KIPAR4Y=172350 

45§ KIPARS=172352 

459 KIPAR6=172354 

400 KIPAR7=172356 

461 

Yes KOPARO=172360 +; ADDRESSES OF KERNEL 'D' PAGE 
4Yo3 KOPAR1=172362 +; ADDRESS REGISTERS 

44 : KDPAR2=172364 

465 KOPAR3=172366 

4ob KDPAR4=172370 

46? KOPARS=172372 

468 KDPAR6=172374 

469 _ KDPAR7=172376 

470 

471 .ENOM SKMMREGS 

472 .MACRO SPORBITS 

473 SACCESS CONTROL FiELD DEFINITIONS (IN POR) 

474 NRO=0 :,NON-RESIDENT ABORT ALL REFS. 
475 RDOT= 1 7; TRAP ON READ, ABORT ON WRITE 
476 RDO=2 ;;READ, ABORT ON WRITE 

477 NR3=3 >, UNUSED ABORT ALL 

478 RWT=4 +; TRAP ON READ & WRITE 

479 RWTW=5 +; READ. TRAP ON WRITE 

480 RW=6 +;READ & WRITE 

481 NR7=7 “ppt ALL ; 
482 ED=10  EXPANS |ON DIRECTION eit 

483 UP=00 EXPAND UP 

4s4 DWN=10 : EXPAND DOWN 

485 : W=100 7, 'W' BIT 

486 A=200 77 ‘A’ BIT 

487 .ENDM SPODRBITS 

488 

489 . MACRO STRAPS 

490 

491 3; THIS ROUTINE DECODES A TRAP INSTRUCTION AND JUMPS TO THE APPROPRIATE 
492 >; SUBROUTINE. 

493 . TRAPS; MOV (S$P),-(SP) 

494 SUB #2, (SP) a ADDRESS OD TRAP hiaitah eit 
495 MoV (SP), (SP) >GET TRAP INSTRUCTION 

496 . TSTB (SP) 

497 BMI 1% 

498 ADD #TRPTAB-TRAP. (SP> 

499 MoV a@(SP)+,PC >; "JUMP" TO APPROPRIATE ROUTINE 
500 1$: JMP SGET 

501 

502 :; TABLE OF ROUTINES CALLED BY TRAP INSTRUCTIONS 

503 TRPTRB: 


504  NLIST 


i ¢ 
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MACRO SET A,B1 
id B <B1> 
SSET A,.'A, TRAP+. QQ., . QQ 


_ FF 

$SET A,B1, <TRAP+.QQ.>, . QQ. 
ENDC 

NLIST 

QQ. =. QQ. +2 

RE Li 

.ENDM = SET 

. MACRO S$SET A,B.C.D0 

-NLIST 

A=C 

LIST 

. WORD B ;,R=TRAP+D (C) 
. ENDM SSET 

.ENDM STRAPS 


.MACRO SSCOP1 
>;>SCOPE (EMT) SERVICE ROUTINE 
7; THIS ROUTINE STORES PC OF LAST SUBTEST SUCCESSFULLY COMPLETED; 
>; 1N %1 AND RESETS THE STACK PTR (TO INITIAL SETTING) 


. SCOPE: MOV (SP), R1 +,SAVE LAST PC _ IN R1 
MoV #STKPTR, SP 7;SET INITIAL STACK POINTER 
on — +;LOAD POP11745 MICRO BREAK REG? 
. +1 
MOVB @SWR, @#UBREAK ;;LOAD MICRO BREAK REG WITH SRO-7 
JMP (R1) ;;GO START NEXT SUB TEST 


.ENDM $SCOP1 

.MACRO S$SCOP3 A 
>; SCOPE (EMT) SERVICE ROUTINE 
7; THIS ROUTINE ALLOWS A SUBTEST TO BE ITERATED ‘A’ TIMES BEFORE 
;;BEGINNING THE NEXT SUBTEST. ROUTINE ALSO RESETS STACK POINTER AND 
>: STORES PC OF LAST TEST COMPLETED IN Ri 
. SCOPE: BIT #B1T14, dSWR >, CONTINUOUSLY LOOP TEST? 

BEQ SCOPEC 


SCOPEB: MOV #STKPTR, SP >;SET INITIAL STACK POINTER 
BIT ee +;LOAD PDP11/745 MICRO BREAK REG? 
BEQ _ +1 
MOVB OSWR, d#UBREAK ;;LOAD MICRO BREAK REG WITH SRO-7 
JMP (R1) >; RETURN 

SCOPEC: DEC (PC)+ ;;DECREMENT |! TERATION COUNT 

SCOPED: ‘A’ ;; CONTAINS SUB TEST ITERATION COUNT 


BNE SCOPEB iG 
MoV #'A', SCOPED ;;RESET SUBTEST ITERATION COUNT 


MoV (SP).R1 +;GET ADDRESS OF NEXT TEST 
BR SCOPEB 
SSCOP3 


. ENON 
MACRO S$SCOPE A 
>; SCOPE (TRAP) SERVICE ROUTINE 
:; THIS POUTINE ALLOWS THE SUBTEST TO BE CONTINUOUSLY LOOPED. 'TEPATED 
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+; (OR NOT ITERATED) BEFORE BEGINNING NEXT SUBTEST 


. SCOPE: NOP 
NOP 
NOP 
are — >; CHECK IF ERROR FLAG IS SET 
ae — +; CHECK IF LOOP ON ERROR 
MoV OREPC, (SP) ;;LOAD ERROR RETURN ADDRESS 
RTI ++ AND EXIT 
is CLR O#ERRFLG 7; CLEAR ERROR FLAG 
ace + acieenes ;;CHECK BIT 14% (CONTINUOUS LOOP) 
= ore OeSCPBLK+4, (SP) >; GET START OF TEST PC 
: | 
4S: 44: + weiethenans ;; CHECK INHIBIT ITERATION SWITCH 
5$ MOV (SP), d#SCPBLK+4 ;; RESET TEST PC 
MOV (SP), d#EPC ;;SET RETURN FROM ERROR PC 
RTI ;;RETURN TO FOLLOWING SUBTEST 
6$ CMP #A, DRSCPBLK4+2 +; CHECK ITERATION COUNT 
BNE 7$ 
MOV (SP), -(SP) 
MOV aiSP), (SP) ;;GET SCOPE CALL INSTRUCTION 
MOV (SP) +, statist ;;SET SUBTEST ITERATION COUNT 
BNE 7$ ; DEFAULT TO 'A' ITERATIONS IF O 
MOV #A, DESCPBLK+2 
7S: DEC yeah tat ;;DECREMENT SUBTEST ITERATION COUNT 
BNE $ 
a a ;;SET SUBTEST !TERATION COUNT 
. ENOM SSCOPE 
. MACRO SPOWER 
>;POWER FAIL SUBROUTINE 
. POWER: MOV #PUP, dRPFVEC ;;SET POWER FAIL VECTOR TO PUP 
HALT 
>;POWER UP SERVICE ROUTINE 
PUP: MoV #STKPTR, SP ;;SET STACK PTR 
MOV #. POWER, Q#PFVEC ;; RESET POWER FAIL VECTOR TO POWER 
;;DOWN ROUTINE 
CLR (PC )+ ;;KILL TIME WAITING FOR TTY MOTOR 
1$ . WORD 0 
2$ INC 1$ 
BNE 23 
TYPE 
PFAIL 
TYPE 
HRS 
TYPE 
SCRLF 
P aeSTART 


JM 
PFAIL: .ASCIZ 
. EVEN 


€15><412>'POWER FAILED AT ' 


SPOHWER 
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617 MACRO S$DONE 
618 +; THIS ROUTINE IS ENTERED AT THE COMPLETION OF THE TEST 
619 .DONE: CLR aePSW + CLEAR STATUS WORD 
620 MOV #STKPTR, SP SISET STACK PTR 
621 RESET 
622 TYPE 
623 BELL 
624 MOV O#42,R0 ++GET MONITOR HOOK FOR ACT11/00P 
625 BEQ DONE 1 ++BRANCH IF (42)=0 
626 LOGICAL: JSR PC, (RO) ++RETURN TO ACT11/DDP VIA 42 
62 DONE1: NOP 
62 NOP 
629 NOP 
630 JMP O#START ++GO TO START OF TEST 
<i .ENDM SDONE 
633 .MACRO SSAVE 
634 *++ROUTINE TO SAVE REGISTERS ON THE STACK 
635 . SAVE: MOV %5, - (SP) *+7R5 1S SAVED AT 12(SP) 
636 MOV %4,- (SP) +7R4 1S SAVED AT 10(SP) 
637 MoV %3,-(SP) ++R3 1S SAVED AT 6(SP) 
638 MOV %Z, - (SP) +¢R2 1S SAVED AT 4(SP) 
639 MOV %1,-(SP) +2R1i 1S SAVED AT 2(SP) 
640 MOV %0.- (SP) +7RO 1S SAVED AT (SP) 
641 MOV 16(SP),-(SP) +;PUSH RETURN PSW ON THE STACK 
642 MOV 16(SP),-(SP) +-PUSH RETURN PC ON THE STACK 
643 RTI 
644 
645 .ENDM S$SAVE 
646 .MACRO SRESTORE 
647 ; ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 
648 . RESTORE: MOV (SP)+, 16(SP) 
649 MOV (SP)+, 16(SP) 
650 MoV (SP)+, %0 
651 MOV (SP)+, %1 
652 MoV (SP)+, %2 
653 MOV (SP)+,%3 
654 MoV (SP )+, %4 
655 MoV (SP)+, %5 
056 RTI >;RETURN 
657 
658 ; .ENDM SRESTORE 
659 
660 MACRO SSHIFT 
661 : ROUTINE TO SHIFT DATA ON THE STACK 
662 CALL: MOV DATA. - (SP) +;PUSH DATA ONTO STACK 
663 ii SHIFT 
664 i; SHIFT COUNT ++ SHIFT COUNT +7-=LEFT/RIGHT 
665 . SHIFT: MOV (SP), -(SP) ++ CHECK SHIFT COUNT + OR - 
666 BNI 2$ ++BRANCH IF - (RIGHT) 
667 18: ASL 6(SP) +;SHIFT DATA LEFT 
668 DEC (SP) ++DECREMENT SHIFT COUNT 
669 BNE 1% 
670 BR 3$ 
671 25: ASR 6(SP) +;SHIFT DATA RIGHT 


672 INC (SP) ++ INCREMENT SHIFT COUNT 
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2$ 
(SP)+ 3;POP SHIFT COUNT OFF THE STACK 
#2, (SP) ;+ADJUST RETURN PC 

++RETURN TO CALLER 
SSHIFT 
SSETTBIT 
O#PSH, - (SP) ++GET CURRENT PSW 
#T, (SP) ++PUSH 'T' BIT ON THE STACK 
#. +6, -(SP) ++RETURN PC ON THE STACK 

3;SET 'T* BIT THEN EXECUTE FOLLOWING INST 
SSETTBIT 
LOPOR ACF.ED.PLF.POR 
torta 256. -400+'ED'+'ACF'. d#'PDR' +;SET ‘POR'='ACF’ "ED' 'PLF' 
STYPE 


;;ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
+; THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


+; TAGS USED BY THE TYPE ROUTINE 


;,CALL: TYPE 
ia ME SADR 
SHT=11 
SNULL: . BYTE 
SFILL: . BYTE 
STPFLG: . BYTE 
STKFLG: . BYTE 
STPS: WORD 
STPB: . WORD 
SCHARCNT: . BYTE 
SCNTRLO: . BYTE 
SCRLF: ASCIZ 
EVEN 
TYPE: MOV 
MoV 
ADD 
CLRB 
TYPE1: TSTB 
EQ 
TCRLF: TYPE.$ 
TSTB 
BPL 
CLR 
RTS 
TYPE2: MOVB 
BNE 
TST 
TYPE3: MOV 
RTI 
TYPE4: CMPB 
BEG 


Q 
2 
0 


0 
177564 
heer 


0 
€15><12> 


RO, -(SP) 
a2(SP),R0 
#2, 2(SP) 
SCNTRLO 


SCNTRLO 


(RO)+, -(SP) 
TYPE4 

(SP )+ 
(SP)+,RO 


#SHT, (SP) 
9$ 


++A TRAP TYPE INSTRUCTION 
;+MESADR IS FIRST ADDRESS OF ASCIZ STRING 


BELOW 

++HORIZONTAL TAB 

+; CONTAINS NULL CHARACTER 

+,CONTAINS # OF FILLER CHARACTERS 
+;CONTAINS TELEPRINTER AVAILABLE FLAG 
++0/7377 = AVAIL/NOT AVAIL 

+; CONTAINS KEYBOARD AVAILABLE FLAG 
;;ADDRESS OF TLEPRINTER STATUS REGISTER 
;;ADDRESS OF TELEPRINTER DATA BUFFER 
+;CONTAINS ®& OF CHARS TYPED 

7; CONTAINS CONTROL O CHAR CIF TYPED) 


>; SAVE RO 
+;GET MESSAGE ADDRESS 
+;ADJUST RETURN PC 


;;BRANCH IF CONTROL O( 0) WASN'T TYPED 
+> TYPE <CR><LF> 


+;PUSH CHARACTER TO BE TYPED ONTO STACK 
+;BRANCH IF NOT THE TERMINATOR 

+;POP TERMINATOR CHAR OFF THE STACK 
++RESTORE RO 

;+RETURN TO CALLER 


+;BRANCH IF HORIZONTAL TAB <HT> 


SEQ 0037 


BLO 
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++ TYPE CHARACTER 

++ CHECK IF CHARACTER WAS A LINE FEED 
++BRANCH IF NOT LINE FEED 

+;GET @ OF FILLERS REQUIRED AND FILLER 
++ CHARACTER. 


+;DECREMENT FILLERS REQ. COUNT 
++BRANCH IF NO MORE FILLERS ARE REQUIRED 
++ TYPE FILLER CHARACTER 


++WAIT FOR OUTPUT DEVICE 


++CHECK IF CONTROL O WAS TYPED 

++STOP TYPING MESSAGE IF 0 WAS TYPED 
+,OUTPUT CHARACTER 

++BRANCH IF NOT <CR> 


+;CLEAR CHARACTERS TYPED COUNT 
++BRANCH IF <LF> OR ‘NULL’ 
+; INCREMENT CHARACTER TYPED COUNT 


*+LOAD ‘SPACE’ 

+> TYPE ‘SPACE’ 

+; TYPE SPACES UNTIL A MULTIPLE 
+;0F 8 CHARACTERS HAVE BEEN TYPED 
+;POP SPACE 

+;GET NEXT CHARACTER 


RO YPEF 
;;ROUTINE TO TYPE MESSAGE FOLLOWING TYPE CALL. CALL: 
; TYPEF 


JSR PC, 5$ 
34: CMPB #12, (SP)+ 
BNE TYPE1 
MOV SNULL, - (SP) 
4S: DECB 1(SP) 
BLT 3$ 
JSR PC, 5$ 
BR 4§ 
55: TSTB aSTPS 
BPL a 
CMPB #17, d#SCNTRLO 
BEQ 63 
MOVB 2(SP), dSTPB 
65: CMPB #15, 2(SP) 
BNE 7$ 
CLRB SCHARCNT 
BR 8$ 
7$: CMPB #12, 2(SP) 
BGE 8$ 
INCB SCHARCNT 
8S: RTS PC 
;;HORIZONTAL TAB <HT> PROCESSER 
9S: MOVB #40, (SP) 
10S: JSR PC, 5$ 
BITB #7, SCHARCNT 
BNE 10$ 
TSTB (SP)+ 
BR TYPE1 
.ENOM STYPE 
. MAC STY 
3 BR 1$ 
by .ASCIZ ‘MESSAGE’ 
3 . EVEN 
_ TYPEF: MOV (SP),15 
ADD #2,15 
TYPE 
15: .WORD O 
RTI 
.ENOM STYPEF 
. MACRO TYPEC 
JSR PC,. TYPEC 
.ENOM = TYPEC 
. MACR FORMAT 
JSR PC,. FORMAT 
_ENDM FORMAT 
MACRO SCNV16 


> CALL 
: | BRANCH AROUND ASCIZ MESSAGE 


;;FORM MESSAGE ADDRESS 
;; CONTAINS MESSAGE ADDRESS 


+;GO TO FORMAT ROUTINE 


;;ROUTINE TO CONVERT 16 BIT OCTAL TO ASCII 


2; CALL: MOV 


DATA, R2 


PUT DATA TO BE CONVERTED IN R2 


SEQ 0038 
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$3 CNV16 
++LEAVES CONVERTED ASCII IN TABLE BEGINNING AT ‘DIGITS’ 
. CNV16: og 


1$: 


23: 


3: 


. ENDM 
. MACRO 


#DIGITS, R4 
R3 

R2,R1 

R 


#3,R1 
DIGTAB( 3), (4)+ 
R3 


RO 
2$ 


SCNV16 
SCNV18 


++ADDRESS WHERE ASC!! VALUES ARE STORED 
++WORKING & INDEX REGISTER 


+3 SAVE 
+sFIRST DIGIT TO R3 


++DIGIT COUNT 
+; TYPE FIRST DIGIT 


>-DIGIT SHIFT COUNT 
+;LOAD DIGIT INTO MESSAGE 
++CLEAR INDEX 

++DEC DIGIT COUNT 


++RETURN TO CALLER 


+;ROUTINE TO CONVERT 16 BIT OCTAL VIRTUAL ADDRESS TO 18 BIT ASCII 
>: PHYSICAL ADDRESS. 
+;CALL: MOV 
ig CNV18 

>;LEAVES CONVERTED ASCII! IN TABLE BEGINNING AT 'DIGITS' 


. CNV18: SAVE 
MOV 


10S: 


ADDRESS+2. R1 


#DIGITS,R4 
R3 

#2,R1 
R1,R5 
R5,R2 
MMAVA 


1$ 
bho. 


R 
OPARTAB(Z).R1 
#UM, DHERRPSW 


10$ 
OQUPARTAB(2).R1 
#6.R0 


R1 
R3 


RO. P -Y 
#160000. R5 


++GET ADDRESS OF DIGIT TABLE 
+;ADJUST ADDRESS 
VE 


se 


>, CHECK JF MEM MGMT IS AVAILABLE 
+;BRANCH IF NOT AVAILABLE 

+; CLEAR ALL BUT PAR SELECTOR BITS 
>+SHIFT BITS 15-13 

4 wt TO 

323-1 


++GET CONTENTS OF PAR REGISTER 
+: CHECK IF WAS IN USER MODE 
+;BRANCH IF NOT IN USER MODE 
+;GET CONTENTS OF USER PAR REG 
++SET SHIFT COUNTER 

+; SHIFT PAR BITS IN R1<11-0> 
+:TO R3<1-0> & R1<415-6> 


+: CLEAR ADDRESS PAR SELECTOR B'TS 


SEQ 0039 
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ADD R5,R1 
R3 
1$: ASL R1 


23: ASL R1 


MOVB ppc atiai te 


DEC RO 
BNE 2$ 
RESTORE 
RTI 


PARTAB: KIPARO 
KIPAR1 
KIPARZ 
KIPAR3 
KIPARY 
KIPARS 
KIPAR6 
UPAR TAB: UIPARO 
UIPAR1 
UIPARZ 
UIPAR3 
UIPARY 
UIPARS 
UIPAR6 
UIPAR7 


.ENDM = SCNV18 
. MACRO SCNV48 


:7FORM 18 BIT PHYSICAL ADDRESS 
>: SHIFT 18/16 BIT ADDRESS 

3:1 PLACE LEFT 

SET DIGIT COUNTER 

7:60 FORM ASCII VALUE OF MSD 


++ SHIFT NEXT DIGIT 
+73 PLACES LEFT INTO R3 


+;SET DIGIT SHIFT COUNT 
+;LOAD DIGIT INTO DIGIT TABLE 
++CLEAR INDEX & LAST DIGIT 
++DECREMENT DIGIT COUNT 
++LOOP UNTIL 6 DIGITS DONE 
7+RESTORE REGISTERS 

++RETURN TO CALLER 


;;ROUTINE TO CONVERT 48. OCTAL DIGITS TO ASCII. LEAVES CONVERTED DATA IN 
>; TABLE STARTING AT DIGBUF. CALL 


$3 MOV ADDRESS, XFERS 
es CNV48 
_ CNV48: SAVE 

MOV #9., 

MOV Sp iaeur sts. . RO 
1$: CLR -(RO) 

DEC R1 

BNE 1% 


MOV XFERS, RS 
MOV #XFERS+2, R4 


MOV (R5)+, (RY)+ 
MoV (R5)+, (RY)+ 
MOV (R5)+, (RY) + 


MOV #16.,R1 


+;LOAD ADDRESS OF OCTAL DIGITS 


+;CLEAR DIGIT BUFFER 


+;GET ADDRESS CONTAINING XFER COUNT 


+;MOVE XFER COUNT TO BUFFER AT XFERS+2 
++ THREE WORDS 


+,GET ICTAL DIGIT COUNT 


SEQ 0040 
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;+GET BINARY BITS/OCTAL DIGIT COUNT 
++GET ADORESS OF OCTAL DATA 

;;ADD 4 (POINT TO LSD) 

;+SHIFT 3 BITS 


;;SHIFT BIT INTO DIGIT BUFFER 
++ CECREMENT BIT COUNT 


++FORM ASCII VALUE 
+;DECREMENT OCTAL DIGIT COUNT 


++RETURN TO CALLER 


++ CONTAINS ADDRESS OF XFER COUNT 
;+CONTAINS DEV XFER COUNT ¢47-32> 
+;CONTAINS DEV XFER COUNT <31-16> 
++ CONTAINS DEV XFER COUNT <15-00> 


+;COSTANT FOR GETTING A VECTOR ADDRESS 
+;CONSTANT FOR GETTING A UNIT & 

+; CONSTANT FOR GETTING WORD COUN NT 

+; CONSTANT FOR GETTING WRITE BUFFER ADDRESS 
++ CONSTANT FOR GETTING EA BITS 

+; CONSTANT FOR GETTING READ BUFFER ADDRES 
;;CONSTANT FOR GETTING PATTERN & 

++CONSTANT FOR GETTING 

+; CONSTANT FOR GETTING WRITE LOC 

+;CONSTANT FOR GETTING CONSTANT 

+; CONSTANT FOR GETTING CYLINDER # 
+;CONSTANT FOR GETTING SURFACE & 

+;CONSTANT FOR GETTING SECTOR &# 

>;CONSTANT FOR GETTING STARTING ADDRESS 
+;OF CP TESTS 

+; CONSTANT FOR GETTING OCTAL ID OF DEVICE 


:;GO GET USER RESPONSE 


21-OCT-77 O9: 54 
23: MOV #3,R2 
35: MoV #XFERS+2,R4 
CMP (RY) 4, (RY) + 
ASL (R4) 
ROL -(R4) 
ROL -(R4) 
ROLB (RO) 
DEC R2 
BNE 3$ 
BISB #260, (RO)+ 
DEC R1 
BNE 23 
RESTORE 
a 
;;DIGIT BUFFER 
XFERS: . WORD 0 
. WORD 0 
WORD 0 
WORD 0 
DIGBUF: . BLKW 9. 
. ENOM SCNV4S 
. MACRO PSPTAGS 
»LIST OF EQUATES FOR GET ROUTINE 
VEC= 0 
UNI T= 1 
WC= 2 
WBA= 3 
EA =y 
RBA= 5 
PAT= 6 
ADR= 7 
WRTLOC= 10 
CONST= 11 
CYL= 12 
SURF = 13 
SECT= 14 
CPLOC= 15 
DEVNAM= 16 
. ENOM PSPTAGS 
. MACRO GETANS 
JSR Pc,. GETANS 
. ENDM GE TANS 
.MACRO SGETANS 


;;ROUTINE TO GET USER 1 CHAR RESPONSE TO PROGRAM REQUEST 
»; CALLED BY GETANS MACRO OR JSR PC.. GETANS 


. GETANS: NOP 
MoV 
CLR 
1$: TSTB 


(SP), -(SP) 
2(SP) 
ae TKS 


++PUSH RETURN PC DOWN ON STACK 
+; CLEAR ANSWER LOCATION 
>sWAIT FOR RESPONSE 


SEQ 0041 
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1$ 
CMP #215, d#TKB 
2$ 


PC 
23: CMP #377, dNTPB 
MOV "s - OFTPB 
3$: MOV OF TKB, O#TPB 
MOV Oe TKB, 2(SP) 
BIC #200, 2(SP) 
1$ 
.ENDM S$GETANS 


.MACRO SRECO 


++ CHECK CARRIAGE RETURN 
++BRANCH IF NOT CARRIAGE RETURN 


4% CARRIAGE RETURN LINE FEED 
++EXIT BACK TO CALLER 


++ BRANCH IF NOT “we ¢ 
++ECHO BACK SLASH 

++ AND WAIT FOR NEXT RESPONSE 
++ECHO TYPED CHAR. 

;;PUT CHARACTER ON THE STACK 
++ STRIP PARITY BIT 

++ AND WAIT FOR NEXT RESPONSE 


+;ROUTINE TO GET TYPED ASCII! DATA AND CONVERT TO OCTAL. 
7; LEAVES THE OCTAL DATA IN THE ADDRESS FOLLOWING THE CALL, (BITS 0-15);; 


+;AND BITS 16-17 IN ADDRESS 46. 


+; CALL: RECO 


Hie .WORD O 

33 CONT I NUE 

RECO: CLR - (SP) 
CLR aR46 


1$: TSTB a#. TKS 


a 
MOVB o#. TKB, - (SP) 
CLR o#. TKS 
CMPB #177, (SP) 

2$ 


BNE 
MOVB e' 4S 
TYPE 
4§$ 
TST (SP )+ 
ROR aR46 
ROR (SP) 
ASR aR46 
ROR (SP) 
ASR aR46 
ROR (SP) 
BR 1$ 
28: CMPB #25, (SP) 
BNE 208 
CMP (5P)+, (SP )+ 


+; (A TRAP TYPE INST. ) 
+; CONTAINS RETURNED DATA 
+;RETURNS HERE 


7;WAIT FOR USER RESPONSE 


+;GET ASCII CHARACTER 
;;CLEAR 'READY' 

+;CHECK IF RUBOUT 
;;BRANCH IF NOT RUBOUT 


*++ECHO BACK SLASH 
+;POP LAST TYPED CHAR OFF THE STACK 
;;SHIFT LAST TYPED CHARACTER OUT 


;;AND WAIT FOR NEXT CHAR. 
+;CHECK IF CONTROL U 


sh gy 1F NOT CONTROL 
>POP CNTRL U CHAR & PREY DATA OFF STACK 


SEQ 0042 
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1009 SCRLF 
1010 BR RECO ::G0 GET INPUT DATA 
1012 203:  CMPB #15. (SP) 37 CHECK IF CARRIAGE RETURN 
1013 BNE 3$ >; BRANCH IF NOT A CARRIAGE RETURN 
1014 TYPE 
1015 SCRLF 
1016 TST (SP)+ ;;POP CARRIAGE RETURN OFF THE STACK 
1017 MoV (SP)+, a(SP) >: PUT DATA IN ADDREESS FOLLOWING CALL 
1018 BIC #177774, a846 5; CLEAR UNUSED BITS 
1019 ADD #2, (SP) 
102 RTI 
1021 
1022 35: MOVB (SP), 4$ 
1023 TYPE 
1024 4S CHO CHARACTER 
1025 BIC #177770, (SP) :: SAVE ONLY 3 MSBS 
1026 ASL 2(SP) :: SHIFT LAST CHARACTER OVER 
1027 ROL ATT 
1028 ASL 2(SP) ;; THREE PLACES 
1029 ROL ae46 
1030 ASL 2(SP) 
1031 ROL TTY 
1032 BIS (SP) +, (SP) ;; INSET OCTAL CHAR 
1033 BR 1$ ::G0 WAIT FOR NEXT CHAR 
1034 4S. “WORD 0 > CONTAINS CHARACTER TO BE TYPED 
1 
1036 -ENDM $RECO 
1037 
1038 MACRO SAVLOR 
1039 JSR PC,. SAVLOR :;G0 SAVE LOADER 
1040 "ENDM SAVLOR 
1041 “MACRO SSAVLDR 
1042 ; ROUTINE TO SAVE ABS LOADER 
1043 SS CALLED BY SAVLDR MACRO OR JSR PC,. SAVLOR 
1044  SAVLDR: NOP 
1045 MoV SP, R1 ;:GET LOADER'S STACK PTR 
1046 ADD #4, R1 FIRST ADDRESS OF LOADER 
1047 MoV R1, SLOR1 SAVE FOR RESTORE ROUTINE 
1048 nov #140, R2 WORD COUNT 
1049 MoV #SLDR142,R3 WHERE LOADER 1S TO BE STORED 
1050 1S. MoV (RI) +, (R3)4 >; STORE LOADER 
1051 DEC R2 
1052 BNE 1$ 
1053 RTS PC > RETURN 
1054 
i a, eee meee nes 
1056 mM L ee Tae 
1057 JSR PC, .RESLDR.  - i RESTORESMBSPUTP” i MDL 
1058 "ENDM —RESLOR 
1059 "MACRO SRESLOR 
1060 ROUTINE TO RESTORE LOADER 
1061 : CALLED BY RESLOR MACRO OR JSR PC..RESLOR 
1062 “RESLOR: NOP 
MOV SLOR1, R5 GET FIRST ADORESS OF WHERE LOADER 1S 


>,7TO0 BE RESTORED 
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1065 MOV #SLOR142, R4 ++ ADDRESS WHERE LOADER |S STORED 
1066 MOV #140,R2 ++ WORD COUNT 

1067 1$: MOV (RY) +, (R5)+ ++ RESTORE 

1068 DEC R2 

1069 BNE 1$ 

1070 TYPE 

1071 SLORM 

1072 HALT 

1073 

1074 SLOR1: 0 ++FIRST ADDRESS 

107 . =, +300 ++ SAVE 300 LOCATIONS 

1076 SLORM: .ASCIZ ‘LOADER 1S RESTORED'<15><12> 

1077 . EVEN 

1078 .ENDM SRESLOR 

1079 

+944 . MACRO SCPCHK 

1081 

1082 3; THE BELOW ROUTINE ASCERTAINS WHICH CP & CP OPTIONS THE PROGRAM IS RUN- 
1083 >;NING ON AND SETS AN INDICATOR IN OPT. CP ACCORDINGLY 

1084 .CPCHK: MOV RRTI. ORFERRVEC+2 7; SET UP ERROR TRAP TO RETURN 
1085 MOV #3,R0 

1086 SEC 

1087 TST d#P IRQ ++RO=3 IF 11745 

1088 SBC RO +;RO=2 IF 11740 

1089 SEC 

1090 TSTB d#PSW+1 +,RO=1 IF 11720 

1091 SBC RO 

1092 CLR #177700 ++RO=0 IF 11705 

1093 ASL RO +; SHIFT. INDICATOR 

1094 MOV RO, (PC)+ +;SET CP INDICATOR 

1095 OPT. CP: .WORD 0 ;;CONTAINS OPTION & CP INDICATORS 
1096 >; EVEN BYTE: O0=11/705, 2=11720, 4=11740, 6211745 

1097 7,000 BYTE: 200=MEM MGMT, 100=E1S 

1098 SEC 

1099 TST a#SRO ;>;CHECK IF MEM MGMT IS AVAILABLE 
1100 BCS 1$ 

1101 BISB 8200.0PT.CP+1 7; SET MEM MGMT AVAIL INDICATOR 
1102 1S: Mov @RTI,Q#RESVEC+2 7; SET RESERVED INSTRUCTION VECTOR 
1103 CLR R2 

1104 SEC 

1105 ASH R2,R2 ;sWILL TRAP IF 11740 WITHOUT EIS 
1106 BCS 23 >;BRANCH IF NO EIS AVAILABLE 
1107 BIS REISOPT.OPT. CP -;SET EIS AVAIL INDICATOR 

1108 2$. CLR OFERRVEC +2 ;,RESTORE ERROR TRAP TO HALT ON TRAP 
1109 CLR OFRESVEC+2 

1110 

1111 ‘ .ENDM = =ScCPCHK 

1112 . MACRO SKW11 

1113 

1114 >;ROUTINE TO START EITHER THE KWii-L, OR THE KW11-P CLOCK 

1115 >; START KWii-L IF AVAILABLE 

1116 ‘ KWIt: MOV SRT, ORERRVEC+2 7; SET ERROR TRAP VECTOR 

1117 MoV #60. , (PC)+ +; SET TICK COUNTER 

1118 4$: .WORD O 7; CONTAINS CLOCK TICK COUNT 

1119 ' SEV +;SET V BIT IN PSW 

1120 BIT #100, d#LKS >; CHECK IF KWII-L 1S AVAILABLE & IF 
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1$ 
5$ 
#23, DELKVEC 


#300, D#LKVEC+2 


#100, d#LKS 
5% 


#100, d#KWPCSR 
5$ 


5% 
#25, O#KWPVEC 


. 8300, DFKWPVEC+2 
#114, J#KWPCSR 


4 
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+717 1S ENABLED 

3:GO TO KW1ii-P START IF NOT AVAILABLE 
3; BRANCH IF PREVIOUSLY ENABLED 

77SET INTERRUPT VECTOR 

;-PRIORITY LEVEL 6 ON INTERRUPT 
;,ENABLE INTERRUPT 

;;GO0 TO END OF ROUTINE 


+SET ‘V' BIT IN PSW 
7 CHECK IF KWi1-P IS AVAILABLE & 
+7 1F IT 1S ENABLED 


++SET INTERRUPT VECTOR 
++SET PRIORITY LEVEL = 6 ON INTERRUPT 
+;SET 1€. LINE FREQ, AND MODE 1 


8 5$ 
>;LINE CLOCK INTERRUPT SERVICE ROUTINE 
23: N 


RO, - (SP) 
R2, - (SP) 
4 

3$ 
#SECS+1,R0 
#'O.R2 
ney 4S 


RO) 
472, (RO) 


#66, (RO) 
3$ 


R2, (RO) >; RESET 


-(RO), -(RO) 
-(RO) 

#72, (RO) 

3$ 


~(RO) 
#63, (RO) 
3$ 


R2, (RO) 
(SP)+,R2 
(SP)+,PR0 


++ SAVE RO ON THE STACK 
+;SAVE RZ ON THE STACK 
+; DECREMENT 1 SECOND COUNTER 


;;PUT ASCII VALUE FOR 0 IN R2 
;,RESET COUNT 

>; INCREMENT LSD SECONDS COUNT 
s4t$0 2 9? 


+;RESET LSD = 0 
++ INCREMENT MSO SECONDS COUNT 
7;MSO = 6? 


MSD = 0 


+; INCREMENT LSD MINUTES COUNT 
++LS$0 = 9? 


> RESET LSD = 0 
>; INCPEMENT MSD MINUTES COUNT 
;2MSD = 


;,RESET MSD = 9 


>; INCREMENT LSD HOURS 
;,LSD = 4? 


;-RESET LSD = 0 
>; INCREMENT MSO HOURS 
>>MSD HOURS = 37? 


7+RESET MSO HOURS TO 0 
+;RESTORE R2 

+, RESTORE RO 

+; RETURN 


" SEQ 0046 


; 4 
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1177 5$: CLR @RERRVEC+2 
1178 
1179 .ENOM SKW11 
1180 
1181 : . MACRO SKWPORV 
Hy ; /ROUTINE TO START by ss REAL TIME CLOCK. CALL: 
1184 ;; CALLER MUST LOAD FOLLOWING PARAMETERS INTO A TABLE STRUCTURED AS SHOWN BELOW: 
1185 +7. KWPCTR: .WORD O +, COUNTER VALUE 
1186 ;2. KWPCSB: .WORD O +; BUFFER 
1187 V2 KMPRET WORD 0 ;;RETURN PC WHEN DONE 
1188 . KWCSR: WORD O ;;CONTOLT STATUS REGISTER 
a > AND LEAVE RO POINTING TO . KWPCTR 
113 
1191 SKWPREGS 
1192 
1193 . KWPDRV: NOP 1 
1194 MOV R1,-(SP) +;SAVE R1 ON THE STACK 
1195 MOV . KWPCSR, R1 ;;GET ADDRESS OF CSR 
1196 ADD #6,R1 7+ FORM ADDRESS OF KWPCTR 
1197 MoV (RO)+,-(R1) ;+LOAD CTR 
1198 MOV (RO)+,-(R1) ;;LOAD CSB 
1199 MOV (SP)4,R1 >;RESTORE R1 
1Z00 MoV (RI) +, (PC)+ ;;LOAD RETURN PC ON INTERRUPT 
1201 _KWPRET:. WORD 0 
1202 MOV (RO), ad(PC)+ ;LOAD COMMAND 
1203 _ KWPCSR: . WORD 0 
1204 RTS PC 
1205 
1206 KWP INT: NOP 
1207 JSR PC, a. KWPRET 
1208 : RTI 
1209 
1210 _ENDM- SKWPDRV 
1211 . MACRO SLPORV 
1212 
1213 ;;ROUTINE TO PRINT ON he LINE FRINTER. CALL: 
1214 ce JSR PC,. LPDORV 
1215 ;; CALLER MUST LOAD THE FOLLOWING LP PARANETERS INTO A TABLE STRUCTERED 
1216 >;AS SHOWN BELOW: 
1217 >: LPBA: .wWoRD OQ ;, CONTAINS FIRST ADDRESS OF DATA TO BE 
1218 >; PRINTED 
1219 ;;LPWC: .WORD OQ ;; CONTAINS # OF CHARACTERS 7 LINE 
1220 >; LPRET: -woRD O ;; CONTAINS RETURN ADDRESS WHEN DONE 
1221 ; 
1222 >, AND LEAVE RO POINTING TO THE FIRST ADDRESS OF THE TABLE (LPBA) 
1223 
1224 SLPREGS 
1225 
1226 _LPORV: NOP 
1227 MoV .LPSs.. LPS ;:GET ADDRESS OF LP STATUS REG 
1228 ADD #2,. LPB ;;FORM ADDRESS OF LP DATA BUFFER REG 
1229 MOV (RO)+,LPADR ;;GET FIRST ADDRESS 
1230 MOV (RO)+,LPCNT >;GET # OF CHARACTERS 
1231 MoV (RO)+, (PC) + ;;GET RETURN ADDRESS 


1232 LPRET: .WORD 0 
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#100,0.LPS 
PC 


a. LPS 
23 
PC, @. LPRET 


OLPAOR, d. LPB 


LPADR 
d. LPS 
2$ 


0 
0 


0 
SLPORY 


++SET INTERRUPT ENABLE BIT 
++RETURN 


++ CHECK FOR ERROR 

++BRANCH IF NO ERROR 

++RETURN TO CALLER 

++LOAD CHAR INTO BUFFER 

++ STEP ADDRESS 

++ CHECK IF DONE 

+;BRANCH IF NOT DONE 

++ RETURN 

+; CONTAINS ADDRESS OF FIRST DATA 
++CONTAINS # OF CHARACTERS 7 LINE 


+; CONTAINS ADDRESS OF LP BUFFER REG 


vat 


SEQ 0048 
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.MACRO STCORV 
;s ROUTINE TO wae “og: Ay DECTAPE. CALL: 


JSR PC,. TC 
;; CALLER MUST LOAD THE FOLLOWING TC PARAMETERS INTO A TABLE STRUCTURED 


++AS SHOWN BELOW: 


;+BLOCK # TO BE READ/WRITTEN 
++ MEMORY TRANSFER ADDRESS 
;+# OF WORDS TO TRANSFER 
++ UNIT # AND COMMAND 

RETURN ADDRESS WHEN DONE 


WOR 0 
;;AND LEAVE RO POINTING TO FIRST ADDRESS. OF TABLE (. TCDT) 


33. TCOT: WORD O 
++. TCBA WORD O 
+7. TCWC WORD O 
33. TCCM WORD O 
+; TCRET: WORD 
STCREGS 
. TCDRV: NOP 
MOV R1,- (SP) 
MOV TCDS, R1 
ADD #10,R1 
MOV (RO)+, (R1) 
MOV CR1), (PC)+ 
_ TCOTR: . WORD 0 
SUB #3,. TCDTR 
MoV (RO)+, -(R1) 
MOV (RO)+, -(R1) 
MoV (RO), (PC)+ 
_TCCMD: .WORD 0 
MOV (RO)+, (PC) + 
. SRCHF: . WORD 0 
MOVB #103,. SRCHF 
MoV . SRCHF, (PC) + 
_SRCHR: .WORD 0 
BIS #4000, . SRCHR 
MOV . SRCHF, (PC) + 
. TCCOM: . WORD 0 
MOV (RO) +, (PC)+ 
. TCRET: . WORD 0 
MOV . SRCHF, -(R1) 
MoV (SP)+,R1 
RTS PC 
>; INTERRUPT SERVICE ROUTINE 
TCINT: MOV R1.- (SP) 
MOV . TCDS, R1 
TST (R1)+ 
TST (R1) 
BMI 6$ 
CMP . SRCHF,. TCCOM 
BNE 44% 
CMP . TCHDT, 6(R1) 
BEQ 5$ 
BLE 34 
1: MoV . TCHDT, 6(R1) 
MoV . SRCHF,. TCCOM 
MoV . SRCHF, (R1) 


>+SAVE R1 ON THE STACK 

+;+GET ADDRESS OF TCDS REGISTER 

++FORM ADDRESS OF TCOT REGISTER 
++LOAD BLOCK &# 

++SAVE BLOCK # 

++CONTAINS BLOCK # FOR REVERSE SEARCH 
+;>FORM BLOCK # FOR REVERSE SEARCH 
+;LOAD MEMORY TRANSFER ADDRESS 

++LOAD WORD COUNT 

++ SAVE COMMAND 

+;CONTAINS COMMAND TO EXECUTE WHEN BLOCK 
71S FOUND 

+; FORM SEARCH FORWARD, COMMAND 
;;CONTAINS SEARCH FWO COMMAND 


;;FORM SEARCH REVERSE COMMAND 
++CONTAINS SEARCH REVERSE COMMAND 


7+ SAVE COMMAND 

+;CONTAINS COMMAND ISSUED TO TC 
+;LOAD RETURN ADDRESS 

+;CONTAINS RETURN ADDRESS WHEN DONE 
+; ISSUE SEARCH FORWARD COMMAND 

+; RESTORE R1 

>; RETURN 


+;SAVE R1 ON THE STACK 

+;GET ADDRESS OF TCDS REGISTER 

++SET R1 = TO ADDRESS OF TCCM REGISTER 
+;CHECK ERROR BIT IN TCC 

+;BRANCH IF ERROR 

+; CHECK IF FINISHED SEARCH FWD 


;;CHECK BLOCK # READ 

;:GO TO 5S IF BLOCK READ IS SAME AS BLOCK 
;; REQUESTED 

++LOAD BLOCK & 

+; SAVE COMMAND 

>; ISSUE SEARCH FWD COMMAND 


SEQ 0049 
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(SP)+,R1 


++SET UP FOR REVERSE SEARCH 
35: M 


4S: CMP 


. TCOTR, 6(R1) 
. SRCHR,. TCCOM 
 TCCOM, (R1) 
2$ 

. SRCHR,. TCCOM 
5% 

. TCOTR, 6(R1) 
1$ 


3$ 


+7 INITIATE sneer ~ COMMAND 
5S: BIT 


BNE 
MOV 
MOV 
BR 


> ERROR SERVICE 
6: TST 


BMI 
7%: TST 
BPL 


8$: BIT 


. ENOM 
. MACRO 


#4, (R1) 
7$ 
. TCCMD.. TCCOM 
. TCCMD, (R1) 
28 


-2(R1) 

&$ 

(R1) 

. +4 
PC, @. TCRET 
2$ 

#4, (R1) 

7$ 

#4000, (R1) 
1% 

34 

STCORV 
SLPMON 


PC,.LPMON 


++RESTORE R1 


;;LOAD REVERSE BLOCK & 
++ SAVE COMMAND 
ahd Si READ REVERSE COMMAND 


++CHECK IF FINISHED SEARCH REVERSE 


++CHECK BLOCK READ 
++GO INITIATE FWO SEARCH 
+; CONTINUE REVERSE SEARCH 


++CHECK IF FINISHED WRITE OR READ 
;;BRANCH IF FINISHED WRITE OR READ 


++LOAD COMMAND 
77 EXIT 


+;CHECK IF END ZONE ERROR 
+;BRANCH IF END ZONE 
+;CHECK ERROR BIT IN TCC 


;;SET 'W' TO INDICATE ERROR 
;;RETURN TO USER 
>,EXIT 


7; CHECK IF READING OR WRITING 
+;BRANCH IF READING OR WRITING 
>;CHECK DIRECTION 

+; 1F REV GO FWD 


+;CALL TO SERVICE ROUTINE 


: ROUTINE TO TYPE A MESSAGE ON THE LINE PRINTER 


3 ADDRESS 
;; CHARACTER STRING ENDS IN A O BYTE 


. LPMON: NOP 
TST 


_LPS 
e Wlerweke 


“LPS 
#15, a#LPVEC 


++ ADDRESS OF FIRST CHARACTER 


7; CHECK IF PREVIOUS REQUEST IS PENDING 
;; BRANCH IF NO REQUEST 

;;RESET PC ON STACK TO RETURN TO 

+; REQUESTER 

;,SET REQUEST PENDING INDICATOR 
;;CHECK IF LINE PRINTER IS BUSY 


+; DECREMENT REQUEST INDICATOR 
>;SET INTERRUPT VECTOR 


SEQ 0050 
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++AND PRIORITY ON INTERRUPT 

+;GET FIRST ADDRESS OF CHAR STRING 
+;ADJUST RETURN PC 

yh ae a ENABLE 


. 
eo ¢ 


+ CHECK ERROR FLAG 
BRANCH IF ERROR 
++CHECK FOR TERMONATOR (0 BYTE) 


++LOAD CHAR INTO LINE PRINTER BUFFER 
++STEP PTR TO NEXT CHARACTER 
++CHECK IF DONE 
++LOAD NEXT CHAR IF DONE 
| 


77EX 


;7LINE PRINTER ERROR 


MoV #200, O#LPVEC+2 
MOV a(SP),LPPTR 
ADD #2, (SP) 
ASR OeLPS 
RTS PC 
;;LINE PRINTER INTERRUPT SERVICE ROUT INE 
15: TST OeLPs 
BNI 3$ 
23: TSTB OLPPTR 
BEQ 5$ 
MOVB OLPPTR, d#LPB 
INC LPPTR 
TSTB OeLPS 
BNI 23 
RTI 
>;HERE IF ERROR 
35: HLT 
4S: CLR OeLPS 


RTI 


>;HERE WHEN DONE 
55: MOV 


RTI 
6S: NOP 


7$: MOV 


9S: JSR 


LPS: . WORD 


#6%, DRLPVEC 


(PC), PC 


: 95 
;;PRINT POP-11 IN BIG anes 
TSERV 


‘’ 


#-540, ae TCHC 
PC, LPSERV 


0 
SLPMON 
SNTORV 


+-DISABLE IE BIT 
>+RETURN 


SS EXIT 


+;CLEAR INTERRUPT ENABLE 
++CHECK IF REQUEST 1S PENDING 
+;BRANCH IF NO REQUEST 

+; OTHERWISE EXIT TO REQUEST 


+7GET NEXT LINE PRINTER COMMAND 
+;CONTAINS ADDRESS OF NEXT LP COMMAND 


7; DT1+1E+RDATA+D0 


;,WAIT FOR 80 CHARACTERS TO BE READ IN 


7; CONTAINS REQUEST INDICATOR 


MACRO R 
i /ROUTINE TO READ/WRITE ON MAGTAPE. CALL: 
J 


PC.. 


MTORV 
;; CALLER MUST LOAD THE FOLLOWING PARAMETERS INTO A TABLE STRUCTERED 
7;AS SHOWN BELOW: 


7+. MTCMA: . WORD 
7+. MTBRC: . WORD 


0 
0 


+;CONTAINS BUS ADDRESS 
+;CONTAINS BYTE TRANSFER COUNT 


SEQ 0051 
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+sMTRET:. WORD O 


++ CONTAINS RETURN ADDRESS WHEN DONE 


++. MTC: .WORD O ++ CONTAINS COMMAND 
+;AND LEAVE RO POINTING TO THE FIRST ADDRESS OF THE TABLE (. MTCNA). 
SMTREGS 
. MTORV: NOP 
MOV R1,-(SP) ++SAVE Ri ON THE STACK 
MoV MTS, R1 +-GET ADDRESS OF MTS REGISTER 
ADD #6,R1 +2FORM ADDRESS OF MTCMA REGISTER 
MoV (RO)+, (R1) ++LOAD MTCMA REGISTER 
MOV (RO) +, -(R1) ++LOAD MTBRC REGISTER 
MoV (SP)+,R1 ++RESTORE R1 
MOV (RO)+, (PC) + ++GET RETURN ADDRESS WHEN DONE 
.MTRET: . WORD 0 
MOV (RO). a. MTC ++LOAD COMMAND 
RTS PC 
MTINT: NOP 
MOV RO, - (SP) ++ SAVE RO ON THE STACK 
MoV .MTC,RO ++LOAD ADDRESS OF MTC INTO RO 
JSR PC, @. MTRET +;RETURN TO CALLER 
MoV (SP)+,R0 ++RESTORE RO 
RTI *+sEXIT TO MONITOR 


.ENDM SMTORV 
.MACRO SRFORV 


ig agar ™ wae og * ON THE RF DISK. CALL: 
J Be 

++CALLER MUST LOAD THE FOLLOWING RF PARAMETERS INTO A TABLE STRUCTURED 
++AS SHOWN BELOW: 


egg Ah oagd .WORD O 


7;CONTAINS EXTENDED DISK ADDRESS 


++. RFD .WORD 9 ++ CONTAINS DISK ADDRESS 
++. RFBA .WORD 0 ++ CONTAINS BUS ADDRESS 
+7. RFWC: -WORD 0 +;CONTAINS WORD COUNT 
' 7¢RFRET: .WORD O +;CONTAINS INTERRUPT ADDRESS 
++. RFOCS .HORD O +; CONTAINS. COMMAND 


*+;AND LEAVE RO POINTING TO THE FIRST ADDRESS OF THE TABLE (. RFDA). 


SRFREGS 
_RFORV: MOV R1,-(SP) ++ SAVE R1 ON THE STACK 
MOV _RFOCS.R1 ++;GET ADDRESS OF RFDCS REGISTER 
ADD #10,R1 +; FORM ADDRESS OF RFDAE REGISTER 
MoV (RO) +, (R1) i¢LOAD RFORE REGISTER 
MoV (RO)+, -(R1) +;LOAD RFDA REGISTER 
MoV (RO)+,-(R1) +;LOAD RFCMA REGISTER 
MoV (RO)+, -(R1) >;LOAD RFWC REGISTER 
MoV (SP)+,R1 +7 RESTORE R1 
MoV (RO) +, (PC)+ ;;LOAD RETURN ADDRESS WHEN DONE 
_RFRET: . WORD +; CONTAINS RETURN ADDRESS WHEN DONE 


0 
MoV (RO), @. RFDCS 
PC 


+2LOAD COMMAND INTO RFOCS REGISTER 


32€X 


SEQ 0052 
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RFINT: NOP - > 
MoV RO, - (SP) +; SAVE RO ON THE STACK 
MOV . RFOCS, RO ++LOAD ADDRESS OF RFOCS INTO RO 
JSR PC, d. RFRET ++RETURN TO CALLER 
MoV (SP)+,R0 ++RESTORE RO 
RTI . #+sEXtT TO MONITOR 


.ENOM = SRFORV 


SEQ 0053 


¢ 5 
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1483 
1484 . MACRO SRKORV 
1485 ++ROUTINE TO READ/WRITE IN THE RK11 DISK. CALL: 
1486 JSR PC,. RKORV 
1487 ;; CALLER MUST LOAD THE FOLLOWING RK PARAMETERS INTO A TABLE ity Bon A “¥ SHOWN BELOW: 
1488 ++. RKDA: WORD 0 +DISK ADDRESS (INCLUDES UNIT # 
1489 ++. RKBA: “WORD 0 7; MEMORY TRANSFER ADDRESS 
1490 ++. RKWC: .WORD 0 ++# OF WORDS TO TRANSFER 
1491 ++ RKRET: .WORD O ++RETURN ADDRESS WHEN DONE 
seas ++. RKCS: .WORD QO + + COMMAND 
1 
ae ;;AND LEAVE RO POINTING TO THE FIRST ADDRESS OF THE TABLE (. RKDA) 
149 
1496 SRKREGS 
1497 
1498 .RKORV: MOV R1i,-(SP) ++ SAVE R1 ON THE STACK 
1499 MOV _ RKOS, R1 ++R1 = ADDRESS OF RKDS REGISTER 
1500 ADD #12,R1 ++R1 = ADDRESS OF RKDA REGISTER 
1501 MOV (RO)+, (R1) ++LOAD DISK ADDRESS REGISTER 
1502 MOV (RO)+, -(R1) ++LOAD BUS ADDRESS REGISTER 
1503 MoV (RO)+,-C(R1). ++LOAD WORD COUNT REGISTER 
1504 MOV (SP)+,R1 ++ RESTORE R1 
1505 MOV (RO)+, (PC)+ ;+LOAD RETURN ADDRESS WHEN DONE 
1506 .RKRET: . WORD 0 ;;CONTAINS RETURN WHEN DONE ADDRESS 
1507 MOV (RO), d(PC)+ *++LOAD IN COMMAND 
1508 .RKCS: .WORD O ++CONTAINS ADDRESS OF RKCS 
1509 RTS PC ; RETURN 
1510 
1511 RKINT: NOP 
1512 JSR PC, @. RKRET >;RETURN TO CALLER 
1513 RTI ;7EXIT INTERRUPT 
1514 
1515 


1516 ‘ -ENDM = SRKORY 
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++ ROUTINE TO ae Pg Ba THE RP11 DISK 
CALLER MUST LOAD THE FOLLOWING RP PARAMETERS INTO A TABLE STRUCTURED AS 


+-CALL: JSR 

++ SHOWN 

++. RPOA: .WORD O 
++. RPCA: .WORD O 
++. RPBA: WORD 0 
++ RPRET: WORD O 


;;RPCS: .WORD 0 


++ CONTAINS DISK ADDRESS 
++ CONTAINS THE CYLINDER ADDRESS 
++CONTAINS BUS ADDRESS 
++ CONTAINS WORD COUNT 
RETURN ADDRESS WHEN DONE 


;; CONTAINS COMMAND WORD 


;;AND LEAVE RO POINTING TO FIRST ADDRESS OF THE TABLE (. RPDA) 


SRPREGS 
-RPORV: NOP 
MoV R1,-(SP) 
MOV _RPOS,R1 
ADD #14,R1 
MoV (RO)+, (R1) 
MOV (RO)+,-(R1) 
MoV (RO)+,-ER1) 
MoV (R9)+,-C(R1) 
MoV (SF)+,R1 
MoV (RO)+, (PC) + 
-RPRET: .WORD OQ 
MOV (RO), d(PC)+ 
-RPCS: .WORD OQ 
RTS PC 
RP INT: NOP 
JSR PC, @. RPRET 
RTI 


ENDM SRPDRI 


;; SAVE R1 ON THE STACK 


+;LOAD DISK ADDRESS 
++LOAD CYLINDER ADDRESS 
++LOAD BUS ADDRESS 
+;LOAD WORD COUNT 
++RESTORE R1 
+;LOAD RETURN ADDRESS WHEN DONE 
:+ CONTAINS RETURN ADDRSS WHEN DONE 
;;LOAD COMMAND INTO RPCS 
+; CONTAINS ADDRESS OF RPCS REGISTER 


;;RETURN TO CALLER 
>; RETURN 


SEQ 0055 


e § 
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1555 
1556 MACRO S$RP4YOR 
+134 + #ROUTINE TO READ/WRITE. ON RPOY/RPOS DISK. CALL: 
1559 +; CALLER MUST LOAD THE FOLLOWING RP PARAMETERS INTO A TABLE STRUCTURED 
1560 ++AS SHOWN BELOW: 
1561 3. RPCS2:. WORD 0 ++ CONTAINS DISK UNIT & 
1562 ++. RPOST:. WORD O ++ CONTAINS DESIRED SECTOR & TRACK ADDRESS 
1563 iG CA: .WORD QO ++CONTAINS CYLINDER ADDRESS 
1564 ++. RPBA: .WORD O ++CONTAINS BUS ADDRESS 
1565 ++. RPWC: .WORD QO ++ CONTAINS WORD COUNT 
1566 ++ RPRET: .WORD O ++ CONTAINS RETURN ADDRESS WHEN DONE 
sae 33. RPCS1:. WORD 0 ++ CONTAINS COMMAND 
1565 
ieee +; AND LEAVE RO POINTING TO FIRST ADDRESS IN THE TABLE (. RPCS2) 
157 
1571 SRPYREGS 
1572 
1573 . RPYDRV: NOP 
1574 MOV R1,-(SP) ++SAVE R1 ON THE STACK 
1575 MOV _RPCS1-R1 ++GET ADDRESS OF CS1 REGISTER 
1576 ADD #10,R1 ++FORM ADDRESS OF CS2 REGISTER 
1577 MOV (RO)+, (R1) ++LOAD UNIT # (RPCS2) 
1578 MoV (RO)+, -(R1) +;LOAD TRACK/SECTOR (RPDST) 
1579 MOV (RO)+, 26(R1) *+LOAD CYLINDER ADDRESS (RPCA) 
1580 MoV (RO)+,-(R1) +,LOAD BUS ADDRESS (RPBA) 
1581 MOV (RO)+,-(R1) ++LOAD WORD COUNT (RPWC) 
1582 MOV (RO)+, (PC)+ +;LOAD RETURN ADDRESS 
1583 .RPRET: . WORD O 
1584 MOV (SP)+,.R1 +;RESTORE R1 
1585 NOP 
1586 MoV (RO), a. RPCS1 +;LOAD COMMAND 
1587 RTS PC 
1588 
1589 RPINT: NOP 
1590 JSR PC, @. RPRET 
1591 RTI 


1692 .ENOM = SRP4DRY 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. SML 


21-OCT-77 09: 54 
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MACRO S$RSORV 
; ROUTINE TO READ/WRITE ON RSO4/RSOS DISK. CALL: 


JSR PC..R 
;; CALLER MUST LOAD THE FOLLOWING RS PARAMETERS INTO A TABLE STRUCTERED 
++AS SHOWN BELOW: 


++. RSCS2:. WORD O ++ CONTAINS UNIT # 
7+. RSOA: WORD 0 +: CONTAINS DISK ADDRESS 
>;. RSBA: . WORD 0 + CONTAINS BUS wit eg 
++. RSWC: . WORD 0 , +; CONTAINS WORD COUN 
+> RSRET: . WORD 0 +, CONTAINS RETURN ADDRESS WHEN DONE 
33. RSCS1:. WORD O +; CONTAINS COMMAND 
;;AND LEAVE RO POINTING TO THE FIRST ADDRESS IN THE TABLE (. RSCS2) 
SRSREGS : 
.RSDRV: NOP 
MOV R1,-(SP) ;;SAVE R1 ON THE STACK 
MoV -RSCS2,R1 ;;GET ADDRESS OF RSCS2 REGISTER 
MoV (RO)+, (R1) ;;LOAD UNIT # (RSCS2) 
MOV (RO)+,-(R1) ;;LOAD DISK ADDRESS (RSDA) 
MOV (RO)+,-(R1) ;;LOAD BUS ADDRESS (RSBA) 
MoV (R9)+,-(R1) ;;LOAD WORD COUNT (RSWC) 
MoV (RO)+, (PC)+ ;;LOAD INTERRUPT RETURN ADDRESS 
_PSRET: . WORD 0 
MoV (SP)+,R1 ;;RESTORE R1 
MoV (RO), ad. RSCS1 ;;LOAD COMMAND 
RTS PC >;RETURN TO CALLER 
RSINT: NOP 
JSR PC, @. RSRET 
RTI :;EX1T TO MONITOR 
. ENOM SRSORV 
.MACRO SHLT 


. PAGE 
> ERROR SERVICE CALLED BY HLT ‘ENT) INSTRUCTION 
;;ROUTINE IS ENTERED BY AN EMT INSTRUCTION AND THE FORMAT CONTROL BYTE 
>; AS AN ARGUEMENT TO THE ENT. 


HLT=ENT 
HLT: NOP 
INC aeERTTL >, INCREMENT TOTAL ERROR COUNT 
MOV #1, 28ERRFLG >; SET ERROR FLAG 
MoV (SP), A#ERRPC 
Sub #2, DFERRPC >; FORM PC OF ERROR CALL (HLT) 
MoV 2(SP), @#ERRPSW ;;GET PSW AT TIME OF ERROR 
TST SHR +; CHECK FOR HALT ON ERROR 
BMI HLT +; BRANCH IF HALT ON ERROR 
Ab oe. cm 3; CHECK FOR LOOP ON ERROR SWITCH 
Q 1 
MOV OSE TTL. d#DISPLAY +; DISPLAY ERROR COUNT 
MoV @sEPC. (SP) ;;SET UP RETURN FROM ERROR 
1$. BIT #SW11,. daSWR >; CHECK INHIBIT TYPEOUT SEITCH 


BNE -HLT1 >; BRANCH IF NO TYPEQUT DESIRED 


SEQ 0057 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. SML 
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_ HLTO: 


ee + Te 


_ HLT2: 
HALTS: 


HALTS: 


HLTS: 


G 
27-OCT-77 


ORERRPC. RZ 
R2,R3 


(R3),RO 
_HLTY 


#SW10, ASWR 
-. HLT2 


OSWR 
2) 


#177400, RO 
#1,R0 

HLTS 
4(R3),RO 
6183), R1 
10(P3),XFERS 
R1.R2 


(R1)+,P2 


RO. R2 


5 
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;;GET PC OF ERROR CALL 
+; SAVE IN RI 


;:GET ERROR CALL INSTRUCTION 
>; BRANCH IF EMT+X 


++RING BELL ON ERROR 


+; CHECK HALT ON ERROR SWITCH 


>, CHECK IF DEVICE ERROR CALL (DEVERR) 


+;GET & OF REGISTERS TO DUMP 
>;AND ADDRESS OF FIRST DEVICE REGISTER 
+;GET ADDRESS OF TRANSFER COUNT 


;: CHECK 1F DATA ERROR CALL (DATERR) 


;,GET GOOD DATA 


SEQ 0058 























1706 
170? 
1708 
1709 
1710 
1711 
1712 
1713 


DZTUD-0 TMOZ DRIVE FUNCTION TIMER 
DZ2TUDD. SML 21-OCT-77 


09: 54 


. HLTEX: 


. HLT?: 


>; DIGIT 
DIGTRB: 


ERRPCM: . 
DIGITS: . 


SCRLF: 


HALT 


—————————$ NN 
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R3,R2 +;GET BAD DATA 


"ERROR PC= ' 
‘000000 ° 
| laa 


<7) 

"DEVICE ERROR '<15><12> 
"XX DATA ERROR '<15><12> 
"MEMORY ADDRESS= ' 

"GOOD DATA= ° 

"BAD DATA= ' 

"DEVICE TRANSFER COUNT= ' 
“a 


SHLT 
SCATCH 


SCATCH 
$$T200 


OsSTART +,G0 TO START OF TEST 
$ST200 
SCNTAG 


SEQ 0059 


DZTUD-D TNHOZ DRIVE FUNCTION TIMER 
09: 54 


OZTUDD. SML 


1762 
1763 
1764 
1765 
1766 


21-OCT-77 


MACY11 30(1046) 


ERRPC: 0 
ERRPSW. .WORD 0 
ERTTL WORD O 
SCPBLK: .WORD 0 
ICNT=SCPBLK 
ITCNT: .WORD 2 
LASTPC: .WORD 4 
“ WORD O 
ERRFLG: .WORD 0 
TICKS: WORD OQ 
ENDM S$CHTAG 
. MACRO SVTKS  ADR.LEN 
JSR RS,. SVTK 
ADR 
LEN 
.ENDM = =SVTKS 
MACRO S$SVTK 
; ROUTINE "TO SETUP TRAP VECTORS 
"Sur K: MOV »~ (SP) 
MOV (R5)+, RO 
TST (R5)+ 
MOV (RO) +, OFERRVEC 
MoV (RO) +, O#MMNVEC 
MOV (RO)+, ORBPTVEC 
MoV (RO) +, dF IOTVEC 
MOV (RO) +, D#RESVEC 
MOV (RO) +, Q#EMNTVEC 
MOV 
MOV (RO)+, O#FPEVEC 
MOV (SP)+,R0 
RTS RS 
ENOM $SVTK 
MACRO SVECTAB 
VECTRB: 
-ERRTRP:. WORD ERRVEC+2 
.MMVEC: . WORD MMVEC+2 
.BPTVEC:. WORD BPTVEC+2 
_1OTVEC:. WORD = l1OTVEC+2 
.RESVEC:. WORD RESVEC+2 
-EMTVEC:. WORD =. HLT 
_TRPVEC:. WORD =. TRAPS 
FPEVEC:. WORD FPEVEC+2 
.ENOM SVECTAB 
.MACRO SSTARTUP 
.; START OF PROGRAM 
START: MOV #STKPTR, SP 
CLR de SCPBLK 
SVTKS  VECTAB. 8. 
.ENDM SSTARTUP 
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+; WORDS wy BY ‘HLT’ 


;; CONTAINS 
;; CONTAINS 
;; CONTAINS 
;; CONTAINS 


;; CONTAINS 
>; CONTAINS 


;; CONTAINS 


;; CONTAINS 
;; CONTAINS 


++GO SETUP 


PC OF ERROR DETECTED 

PSW AT TIME OF ERROR 

TOTAL ERRORS DETECTED COUNT 
PASS COUNT 


SUBTEST ITERATION COUNT 
LAST SCOPE CALL PC 


SCOPE RETURN FOR ERRORS 


ERROR FLAG 
TICK COUNT FOR CLOCKS 


TRAP VECTORS 


++SAVE RO ON THE STACK 

+;GET TABLE ADDRESS 

++POP LENGTH ARGUMENT 

+,SET ERROR TRAP VECTOR 

;+SET MEM MGMT ABORT TRAP VECTOR 


;;SET ‘BPT' 


TRAP VECTOR 


++SET 1OT TRAP VECTOR 
7; SET RESERVED INTRUCTION TRAP VECTOR 
+;SET EMT TRAP VECTOR 


(RO)+, OF TRAPVEC ++ SET TRAP 
;SET FLOATING POINT TRAP VECTOR 
; ; RESTORE RO 


>; RETURN 


TRAP VECTOR 


we 


>; SET STACK POINTER 
>>CLEAR PASS COUNT 


SEQ 0060 
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SMANFO 
3; ROUTINE SET ACTION ENABLE ON MA/MF PARITY MEMORIES 


++;ADDRESS OF FIRST MA/MF PARITY CSR 
;;ADDRESS OF PARITY INTERRUPT VECTOR 


+;CHECK IF PARITY ERROR DETECTION IS TO 
3;ENABLE. BRANCH IF NOT TO BE ENABLED 

C ++SET PARITY INTERRUPT VECTOR 
+>AND PRIORITY LEVEL 7 ON INTERRUPT 
++SAVE CURRENT ERROR VECTOR 


O#ERRVEC+2,-(SP);;AND PRIORITY LEVEL 


++GET FIRST CSR ADDRESS 


++SET TIME OUT INDICATOR 

++SET ACTION ENABLE IF AVAILABLE 
+;BRANCH IF CSR NOT AVAILABLE 
;+SHIFT AVAILABILITY INDICATOR 


(SP )+, DRERRVEC+2; ;RESTORE ERROR VECTOR PRIORITY LEVEL 


++ AND INTERRUPT VECTOR 


MACRO 
++ CALL: wS PC,. MAMF 
PARCSR= 172100 
PARVEC= 114 
.MAMF: BIT #40, dSWR 
BNE 3$ 
MoV #. PARSRV, J#PARVE 
MOV #340, D#PARVEC+2 
MOV ORERRVEC, -(SP) 
MOV 
MOV RERRVEC +2, DHERRVEC 
MoV RTI, ORERRVEC+2 
MOV #PARCSR, RO 
MOV #1,R2 
1$: SEZ 
MoV #1, (RO)+ 
BEQ 23 
25: ASL R2 
BCC 1$ 
MoV 
MOV (SP )+, QRERRVEC 
35: RTS PC 


;;PARITY ERROR SERVICE ROUTINE 
;;WHEN A PARITY ERROR IS DETECTED THIS ROUITNE TYPES A MESSAGE 

is "PARITY ERROR’ 

>; THEN SCANS MEMORY FOR THE ADDRESS CAUSING THE PARITY ERROR. WHEN THE 
;;ADDRESS 1S LOCATED THE ADDRESS 1S PRINTED. AND THE PROGRAM HALTS. 
>;PRESS CONTINUE TO RESTART. 


“P 


3%: 


ARSRV: TYPE 
PARERR 
CLR 


R1 

#25, D#PARVEC 
#49, DRERRVEC 
#553, deMMVEC 
(R1)+ 

1$ 


O*STARTI 
4Y(SP),R1 





;;SET FIRST ADDRESS 

;;SET PARITY ERROR VECTOR 
;;SET ERROR TRAP VECTOR 

>; SET MEM MGMT ABORT VECTOR 
>; SCAN MEMORY 


>>GET PC AT TIME OF PARITY ERROR 
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1874 ERRPCM 
1875 BR 
1876 
1877 55: ADD #200, d#KIPARZ 
1878 MOV #40000, R1 ;+>RESET ADDRESS 
1879 RTI 
1880 
1881 PARERR: .ASCIZ ‘PARITY ERROR’ 
1882 NOPAR: .ASCIZ ‘NO PARITY ERROR DETECTED ON SCAN ' 
1883 . EVEN 
1884 
1885 .ENDM SMAMFO 
1886 .MACRO DTBOOT 
188? 7;BO0OT LOADER 
ate 3; THE FOLLOWING ROUTINE WILL LOAD THE PROGRAM INTO MEMORY FROM DECTAPE 
1889 
1890 BLKODAT: CLR RO 
1891 MOV #64..R1 
1892 MOV #20000, R2 
1893 15: MOV (RO)+, (R2)+ ++ RELOCATE 
1894 DEC R1 ;;DECREMENT WORD COUNT 
1895 BNE 1% 
1896 ADD #20000, PC ;;GO TO RELOCATED CODE 
1897 MoV #-4096. ,d#TCWC ;;LOAD DECTAPE WORD COUNT 
1898 CLR asTCcBA ;;LOAD MEMORY TRANSFER ADDRESS 
1899 25 MOV #3, 08 TCCH 7; SEARCH FWD ON UNIT O 
1900 TSTB as Tccn ;; WAIT FOR READY 
1901 BPL 74 
1902 CMP #10, d#TCOT >, CHECK BLOCK & 
1903 BNE 25 
a MoV #5, 08 TCCH ;; ISSUE READ COMMAND 
1905 
1906 TSTB aeTCCM ;; WAIT FOR READ TO FINISH 
1907 BPL 7 
1908 CLR aeTccm 
1909 HALT 
1910 = OM 
1911 MACR LPDP11 
1912 ;:LP DATA BUFFER 
1913 LPDAT: .ASCII ‘PPPPPPPP 18} 8) 8) 0) 8) 8) 8) 8) PPPPPPPP 11 11'°<15><12> 
1914 -ASCII ‘PP PP DD DD PP PP 111 111°<15><12> 
1915 -ASCII ‘PP PP DD 0) 8) PP PP 1111 1111°<15><12> 
1916 -ASCII ‘PP PP DO DD OPP PP 11 11'<15><12> 
1917 -ASCII ‘PP PP DD DD =PP PP 11 11°<15><12> 
1918 ASCII ‘PP PP DD DD PP PP 11 11°<15><12> 
1919 -ASCII ‘PP DD DD so PP PP 11 11‘°<15><12> 
1920 -ASCII ‘ePPPPPPP DO DD PPPPPPPP 11 11'<15><12> 
1921 -ASCII ‘PP DD DOD = PP 11 11'<15><12> 
1922 -ASCII ‘PP 00 00 PP 11 11°<15><12> 
1923 -ASCII ‘PP 00 it} 8) PP 11 11°<15><12> 
1924 ASCit “PP DO 0D PP 111111 111111'<15><12> 
1925 -ASCII ‘PP DODODDDDD PP 111111 111111'<15><12> 
1926 C12 ‘POP-11'°<15><12> 
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1930 


DZTUD-D TNOZ DRIVE leit 


DZ2TUDD. P11 


27-OCT-77 


100000 
040000 
020000 
004000 
002000 
001000 
000400 
000200 
000100 


MACY11 30(104%6) 


.SBTTL S$ 
LOADING AND STARTING PROCEEDURE 


; 
Ps 
; 
, 
’ 
, 
‘ 
; 
’ 
, 


’ 


+ SWITCH 


-NLIST MC 
.LIST ME 
. ENABLE ABS. ANA 


mn 5 
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.MCALL SCPREG, SCPVEC, SCPREG, SCATCH, STYPE 
ph. DZTUD-D TMOZ DRIVE FUNCTION TIMER 
TARTING INSTRUCTICNS 


LOAD PROGRAM USING ABS LOADER 


LOAD ADDRESS 200 
SET SWITCH OPTIONS 
PRESS START 


; GENERAL REGISTER USAGE: 


RO=ADDRESS OF ‘FC’ REGISTER (SET BY SCOPE) 

RisADORESS OF ‘DS’ REGISTER (SET BY SCOPE) 

RZ=RETURN PC FROM TIMER (SET BY EACH TEST) 

R3=INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
R4=CONTAINS ‘TICK’ COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 
RS=ADDRESS OF CS1 (SET BY SCOPE) 


REGISTER ob ASSIGNMENTS 


SWi5= 100000 

SWi4= 040000 
SWi3= 020000 
SWil= 004000 
SWi0= 002000 
SWO9= 001000 
SWO8= 000400 
SWO7= 000200 
SWO6= 000100 


+HALT ON ERROR 

+LOOP SUBTEST 

+ INHIBIT ERROR TYPE OUT 

; INHIBIT SUBTEST ITERATION 

; INHIBIT PUBLICATION OF FUNCTION TIMES 
-RING BELL ON ERROR 

+ TYPE LINE ITEM AFTER EACH ITERATION 
;HALT ON TEST SELECTED IN SWO5-SWOO 
CONTINUOUS CYCLE 


. SBTTL ny DEFINITIONS 


MACRO SAV 
JSR PC,. SAVE 
ENOM AVE 


ENODM INPUT 
MACRO 1ND 

JSR PC, . REWIND 
BVS 99% 


“MACRO TIMEON 
JSR PC, TIMON 


“MACRO TIMCHK 
JMP TIMER (R3) 


. ENDM 

. MACRO SETGO 
INC (R5) 
ENDM 


SAVE REGISTERS ON THE STACK 


-RESTORE REGISTERS FROM THE STACK 


*GET USER INPUT 


REWIND SLAVE 
>BRANCH IF ERROR ON REWIND 


> TURN TIMER ON 


>GO TO TIMER & RETURN VIA R2 


SET ‘GO’ BIT 


SEQ 0064 


DZTUD-0 TNOZ DRIVE a he 


DZTUDD. P11 


(1) 


Ce ae ee ae ee ae ee ee ee ee ee oe 


1 


ee ee et et ee ee ee ee et Oe OL) ek ee ee et ed ee ee el ee ee ee et et et ee ee ee et ed et et 
leet a a a a a a a a an a nn 


aren ROOK RR RR RRR ROA 


27-OCT-77 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
oo0co00 
000001 
000002 
000003 
000004 
000005 


177776 
177774 
177772 
177770 
177560 
177562 
177564 
177566 


000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000114 
000240 
000244 
000250 


172540 
000104 
177546 
000100 
177514 
177516 


172440 
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) 
MACRO DEFINITIONS 
_SBTTL REGISTER ASSIGNMENTS 


+; DEFINITIONS AND REGISTER ASSIGNMENTS 
++GENERAL REGISTER ASSIGNMENTS 


wWwewnN— 


++REGISTER ADDRESSES 
PSW= 177776 


SLR= 177774 
PIRQ= 177772 
UBREAK= 177770 
TKS= 177560 
TKB= 177562 
TPS= 177564 
TPB= 177566 


+;VECTOR ADDRESSES 
ERRV 


++PROCESSER STATUS WORD 

++ STACK LIMIT REGISTER (11740, 11745) 
++PROGRAM INTERRUPT REQ. (11745) 
 a“ueee (11745) 


++ KEYBOARD CS 


+:KEYBOARD DATA BUFFER REGISTER 
+; TELEPRINTER CSR 
+; TELEPRINTER DATA BUFFER REGISTER 


EC=4 +;ADDRESS OF ERROR VECTOR 
RESVEC=10 ++;ADORESS OF RESERVED INST. TRAP VECTOR 
TBITVEC=14 +;ADDRESS OF 'T' BIT TRAP VECTOR 
TRTIVEC=14 ++ADDRESS OF ‘TRACE’ TRAP VECTOR 
BPTVEC=14 +;ADDRESS OF ‘BREAKPOINT’ TRAP VECTOR 
1OTVEC=20 +;ADDRESS OF I1OT TRAP VECTOR 
PFVEC=24 +ADDRESS OF POWER FAIL TRAP VECTOR 
ENTVEC=30 +;ADDRESS OF EMT VECTOR 
TRAPVEC=34 +;ADDRESS OF TRAP VECTOR 
TKVEC= 60 +;ADDRESS OF TTY KEYBOARD INT. VECTOR 
TPVEC=64 +-ADDRESS OF TTY PRINTER INTERRUPT VECTOR 
PARVEC= 114 +;ADDRESS OF MA/MF PARITY ERROR VECTOR 
PIRVEC=Z40 2;ADDRESS OF PIRQ VECTOR 
FPEVEC=244 ++ADDRESS OF FLOATING POINT INT. VECTOR 
MMVEC=250 +;ADDRESS OF MEM MGMT ERROR TRAP VECTOR 

*CLOCK ADDRESS AND VECTORS 

PLKCSR= 172540 +KWi1-P 
PLKVEC= 104 
LKS= 177546 *KW1I-L 
LKVEC= 100 
LPS= 177514 *LPil 


LPB= 177516 


;RH11, TMOZ/TUI6 REGISTERS 
TMCSt= 172440 


SEQ 0065 


DZTUD-D TMHOZ ORIVE FUNCTION TIMER 


OZTUDD. P11 27-OCT-77 13:17 

2002 

2003 

2004 000000 
2005 000002 
2006 000004 
2007 000006 
2008 000010 
2009 000012 
2010 000014 
2011 000016 
2012 000022 
2013 000024 
2014 000026 
2015 000030 
2016 000032 
2017 

2018 

2019 

2020 000001 
2021 000000 
2022 000002 
2023 000006 
2024 000010 
2025 000026 
2026 000024 
2027 000030 
2028 000032 
2029 000050 
2030 000056 
2031 000060 
2032 000070 
2033 000076 
2034 000100 
2035 000200 
2036 000400 
2037 001000 
2038 002000 
2039 004000 
2040 020000 
2041 040000 
2042 100000 
2043 

2044 000090 
2045 000001 
2046 000002 
2047 000003 
2048 000004 
2049 oo000s 
2050 000006 
2051 000007 
2052 000010 
2053 000020 
2054 000040 
2055 006100 
2056 000200 
2057 000400 


B 
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+ TMO2/TU16 INDEX VALUES 
CSi= 00 


$1 

WC= 02 
BA= 04 
FCs 06 
CS2= 10 
OS= 12 
ER= 14 
AS= 16 
DB= 22 
MR= 24 
DT= 26 
SN= 30 
Tce 32 


_SBTTL TMOZ/TU16 REGISTER BITS 


a 


0 1 
NOP= 0 
RWDOFF= 2 
RWD= 6 
DRYCLR= 10 
WFMK= 26 
ERASE= 24 
SPCFWD= 30 
SPCREV= 32 
WCHKF= 50 
WCHKR= 56 
WF WD= 60 
ROFWD= 70 
RDREV= 76 
1E= 100 
RDY= 200 
Alb= 400 
Al7= 1000 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40000 
SC= 100000 

7;RHCS2-CS2(R5) 

DvO0= 

DVi= 1 
DV2= 2 
DV3= 3 
DV4= 4 
Dv5= 5 
DV6= 6 
DV7= 7 
BAI= 10 
PAT= 20 
CLR= 4G 

IR= 100 
OR= 200 
MDPE= 400 


6 
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*CONTROL STATUS #1 


+BUS ADDRESS REGISTER 
+FRAME COUNT 

CONTROL STATUS #2 
+ORIVE STATUS 

ERROR REG #1 

; ATTENTION SUMMARY 
DATA BUFFER REG 
;MAINTENANCE REG 

DRIVE TYPE REG 

+SERIAL NUMBER REGISTER 
+ TAPE CONTROL REG 


SEQ 0066 


DZTUD-D TMOZ ORIVE FUNCTION TIMER 


DZTUDD. P11 
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001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
002000 
004000 
010000 
020000 
040000 
100000 


00000! 
000002 
000004 


000020 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 


000100 


002000 
010000 
040000 


000300 
000320 
000000 
000400 
001000 
002000 
100000 


MACY11 30(104 
TMO2/TU16 REG 


MXF = 
PGE= 
NEM= 
NED= 
UPE= 
WCE= 
DLT= 
+ RHOS-DS(R5) 
SLA= 
BOT= 
TMK= 
1OB= 
SDWN= 
PES= 
Ssc= 
DRY= 
DPR= 
EQT= 
WRL= 
MOL= 
PiP= 
ERR= 
ATA= 
;RHER-ER(RS) 
| - 


6) 
1ST 


JLR= 
RNR= 


FMT= 
INCVRE= 
PEFLRC= 
NSG= 
FCE= 
CSITM= 
NEF = 
OTE= 
OP I= 
UNS= 


> RHMR-MR(RS) 
‘ OSC= 


+ RHOT-OT(RS) 
SPR= 


CH7= 
TAP= 


;RHTC-TCC(RS) 


C 6 
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100000 





SEQ 0067 
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104400 
104000 
000004 


005750 
177400 
177600 


000003 
000011 
000012 ° 
000015 
000017 
000025 


0 
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TMOZ/TU16 REGISTER BITS 
+ INSTRUCTION EQUATES 
HLT= TRAP 


SCOPE= ENT 
TYPE= 10T 


*MISCELLANEOUS EQUATES 
OUTBUF=INIT 
FRMCNT= -256. 
WROCNT= -128. 
s ASCII EQUATES 
CNTRLC= 3 
HT= 1 
LF= 1 
CR= 1 
CNTRLO= 1 
CNTRLU= 2 


6 
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;OTPUT BUFFER START AT BEG OF PROGRAM 
+FRAME COUNT 
WORD COUNT 


11 CODE FOR CONTROL C ¢ C) 
11 CODE FOR HORIZONTAL TAB 
ASCII CODE FOR LINE FEED 
it 
it 
11 


ASCII CODE FOR CARRIAGE RETURN 
;ASCII CODE FOR CONTROL O ¢ 0) 
;ASCII CODE FOR CONTROL U ( U) 


SEQ 0068 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


000014 
000016 
000020 
000022 
000024 
000026 


000030 - 


000032 
000034 
000036 


000042 
000046 
000052 


000060 
000062 


000176 


000200 


001000 
001002 
001004 
001006 
001007 
001010 
001012 
001014 
001016 


001056 
001116 
001120 
001122 
001123 
001124 
001125 
001126 
001127 
001130 
001131 
001132 


27-OCT-77 


000014 
000016 
000000 
002334 
000000 


CO0340 
000176 
000000 


000200 
000137 


000500 
000600 


001000 


000000 
177570 


000000 
000020 


000020 
000000 


13: 17 


005750 


MACY11 30(1046) 
TMO2/TU16 REGISTER BITS 


as E 
270CT-77 


+SETUP TRAP VECTORS 
‘ ITVEC 


=TB 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
WORD 
=42 
. WORD 
=46 
. WORD 
. 252 
WORD 
=TKVEC 
WORD 
WORD 
=176 
SWREG: 
. =200 
JMP 
. =500 
STKPTR= 600 
. =1000 
;PROGRAM TAGS 
PASS: . WORD 
SWR: 177570 
SCPADR WORD 
DRVNUM: . BYTE 
SLVNUM: . BYTE 
SLVPTR WORD 
TMBASE: . WORD 
ATIME: . WORD 
ATIMTBL: . BLKW 
GAPTBL: . BLKW 
DELTIM: . WORD 
OCTALO: . WORD 
GAP: BYTE 
1 TCNT: BYTE 
TSTNUM. | BYTE 
ERFLG: .BYTE 
PRGFLG: . BYTE 
UNTFND: . BYTE 
TYPFLG: . BYTE 
NRZFLG: . BYTE 
ASFLG: BYTE 


TKISR 
340 


6 
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-;SET ‘'T' TRAP TO TIMER ROUTINE 
+PRIORITY LEVEL 7 

;SET 10T TRAP TO . TYPE ROUTINE 
+PRIOTITY LEVEL O 

;POWER FAIL TRAP TO HALT 

;AT PFVEC+2 

+SET EMT TRAP TO . SCOPE ROUTINE 
;PRIORITY LEVEL 7 

SET TRAP TRAP TO . HLT ROUTINE 
PRIORITY LEVEL 7 

+ACTII 


, 
’ 
; 
’ 
’ 


; SOFTWARE SWITCH REGISTER LOC. 176 


0 


ae INIT 


MCS1 


—-—O+0000 oO 


no 


oooooco0c°oeoadao 


SOFTWARE SWITCH REGISTER 
;GO TO START OF PROGRAM 


; STACK 


+ SWITCH REGISTER 


;TMO2Z2 DRIVE WNDER TEST 
+ TU16 SLAVE UNDER TEST 
POINTER TO SLAVEX TABLE (SLVTBL) BELOW 
;BASE ADDRESS OF -@02/TU16 REGISTERS 

_ CONTAINS “TICK COUNT 
+EACH ENTRY CONTAINS TIME: FOR FUNCTION | 
*ENTRIES ARE MADE BY ‘SCOPE’ ROUTINE 
* TIMES RECORDED BY "GAP CONSISTANCY" TEST 
;VARIBLE DELAY :;° 


CONTAINS GAP & (USED seve TST 021) 
+ ITERATION COUNT 

+ TEST & 

ERROR FLAG 

;PROGRAM FLAG 

UNIT FOUND INDICATOR 


> INDICATES IF DRIVE 1S NRZ ONLY. 
*1/0 = YES/NO. 


SEQ 0069 


DZTUD-D THOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


001134 
001136 
001140 
001142 
001144 
001146 
001154 


001156 
001166 
001266 
001376 
001401 
001403 
001405 
001407 
001411 
001412 
001414 


27-OCT-77 
001134 


13: 17 


F 
MACY11 30(1046) 27-OCT-77 


TMO2/TU16 REGISTER BITS 


5 
DIGTAB: "Ot 


gieued 


DRVTBL: . BLKB 7 


CRLF: .ASCIZ <CR><LF) 


ECHO: .ASCIZ '0' 
BELL: .ASCIZ <7) 


NGO oo 
pe: 


SPACE: .ASCIZ ' ' 
ANGTAB: *. ASCIZ ‘>'<HT> 


6 
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+RESERVE SPACE FOR CONVERTED DIGITS 
+ TERMINATOR 


+A O7-1 = DRIVE NOT TO BE/TO BE TESTED 
+A O7-1 = SLAVE NOT TO BE/TO BE TESTED 
+> TELETYPE INPUT BUFFER 

*+MISCELLANEOUS ASCII CHARACTERS 


SEQ 0070 


DZTUD-D TMHOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


001420 
001424 
001430 
001434 
001440 
001444 
001450 
001454 
001460 
001464 
001470 
001474 
001500 
001504 
001510 
001514 
001520 
001524 
001530 
001534 
001540 


001544. 


001550 
001554 
001560 
001564 
001570 


27-OCT-77 


000000 


004540 
004540 
004716 
023564 
024404 
004336 
004336 


13: 17 


000000 
043740 
001546 
001522 
001452 
035064 
000404 
000651 
001452 
000404 
000512 
001452 
002056 
002056 
001666 
001522 
002532 
002330 
000000 
004406 
004374 
004374 
004552 
023254 
024074 
004172 
004172 


MACY11 30(1046) 


_SBTTL TIME SPECIFICATION 
;THE BELOW TABLE CONTAINS THE SPEC 
NOTE THAT WHEN TIME 
(BY APPENDING A O). 


+MICROCESONDS. 


+MICROSECONDS 
+FORMAT IS 
. WORD 


’ 


STIMTBL: . te 


WORD 
WORD 


G 6 
27-OCT-77 13:42 PAGE 16-7 
TIME SPECIFICATION TABLE 


TABLE 
IFIED FUNCTION TIMES IN TENS OF 
S ARE TYPED THAT THEY ARE TYPED IN 


MAX, MIN +TIME IN MS FUNCTION TEST # 
0,0 + SPARE 

18800. . 18400. +188. 0-184. 0 WRITE FROM BOT TSTOO! 
00950. . 00870. +9. 5-8. 7 WRITE START TSTOO2 
00890. , 00850. +8. 9-8.5 WRITE SHUTDOWN TSTOO3 
01350. , 00810. +13. 5-8. 1 WRITE STLDOWN TSTOO4 
15200. . 14900. +152. 0-149. 0 READ FROM BOT TSTOOS 
00320. , 00260. +3. 2-2. 6 READ START TSTO06 
00465. , 00425. +4. 65-4. 25 READ SHUTDOWN TSTOO7 
01350. , 00810. 713. 5-8. 1 READ SETTLEDOWN TSTOIO 
00320. . 00260. +3. 2-2.6 RD REV START TSTO11 
00370. . 00330. $3. 7-35 RD REV SHTOWN TSTO12 
01350. . 00810. +13. 5-8. 1 RO REV STLOWN TSTO13 
01670. .01070. +16. 7-10. 7 TRN RND OLY F-R TSTO14 
01670. .01070. +16. 7-10. 7 TRN RND DLY R-F TSTO15 
01290. . 00950. 212. 9-9.5 GAP SIZE STOP TSTO16 
01180. , 00850. 711. 8-8.5 GAP SIZE STRT TSTO17 
01480. . 01370. +14. 8-13. 7 GAP SIZE INTER TSTO20 
01380. ,01240. 713. 8-12. 4 GAP CONSISANCY TSTO21 
0,0 70. 0-0.0 DUMMY TST022 
02410. 02310. +24. 1-23. 1 DAT TIME 200BP! TSTO23 
02400. . 02300. +24. 0-23. 0 DAT TIME 556BP! TSTO24 
02400. . 02300. +24 0-23.0 DAT TIME 800BP! TSTOZ5 
02510. , 02410. +25. 1-24. 1 DAT TIME 1600PE TSTO26 
10100. , 09900. +101. 0-99.0 ERASE TST027 
10500. , 10300. +105. 0-103. 0 WRT FILE MARK TSTO3O 
02270. .02170. 322. 7-21. 7 READ 1" TAPE TSTO31 
02270. .02170. 422. 7-21. 7 RD REV 1" TAPE TSTO32 


;NOTE: TEST 31 AND 32 


REQUIRE PRERECORDED SOOBP! SKEW TAPE. 


SEQ 0071 


H 6 
DZ2TUD-=D TMOZ DRIVE FUNCTION TIMER MACY11 30(1046) 27-OCT-77 13:42 PAGE 16-8 


D2TUDD. P11 27-OCT-77 13:17 GAP TIME SPECIFICATION TABLE SEQ 0072 
2247 .SBTTL GAP TIME SPECIFICATION TABLE 
2248 *+THIS TABLE CONTAINS THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
2249 +OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 
ror NOTE: GAP #'S ARE IN OCTAL. 
asst ; .WORD MAX, MINC10) ;TIME IN MS(10) GAP # DELAY IN MS(10) 
2254 001574 002602 002412 GTIMTBL:. WORD 01410. ,01290. 714. 1-12. 9 GAP-0 OMS 
2255 001600 002652 002506 .WORD 01450. .01350. 714. 5-13. 5 GAP-1 1.0 MS 
2256 001604 002734 002532 .WORD 01500. ,01370. +15. 0-13. 7 GAP-2 2.0 MS 
~2257 001610 002734 002532 .WORD 01500. .01370. +15. 0-13. 7 GAP-3 3.0 MS 
2258 001614 002734 002424 .WORD 01500. ,01300. +15. 0-13. 0 GAP-4 4.0 MS 
2259 001620 002652 002260 .WORD 01450. ,01200. 714. 5-12. 0 GAP-5 5.0 MS 
2260 001624 002652 002260 .WORD 01450. ,01200. 714. 5-12. 0 GAP-6 6.0 MS 
2261 001630 002652 002260 .WORD 01450. .01200. +14. 5-12. 0 GAP-7 7.0 MS 
2262 001634 002532 002260 -WORD 01370. .01200. +13. 2-12. 0 GAP-10 8.0 MS 
2263 001640 002532 002260 -WORD 01370.,01200. +13. 7-120 GAP-11 9.0 MS 
2264 001644 002532 002260 .WORD 01370. .01200. 713. 7-12.0 GAP-12 10.0 MS 
2265 001650 002532 002260 .WORD 01370. .01200. +13. 7-12. 0 GAP-13 11.0 MS 
2266 001654 002532 002260 -WORD 01370. .01200. #13. 7-12. 0 GAP-14 12.0 MS 
2267 001660 002532 002260 .WORD 01370. .01200. 713. 7-12.0 GAP-15 13.1 MS 
2268 001664 002532 002260 -WORD 01370. ,01200. #13. 7-12.0 GAP-16 14.1 MS 
2269 901670 002532 002260 -WORD = 01376. .01200. i412. 7-42 @ GAP-17 15.1 MS 


DZTUD-0 TMOZ DRIVE FUNCTION TIMER 


DZ2TUDD. P11 


001674 
001676 
001700 
001702 
001704 
001706 
001710 
001712 
001714 
001716 
001720 
001722 
001724 
001726 
001730 
001732 
001734 
001736 
001740 
001742 
001744 
001746 
001750 
001752 
001754 
001756 
001760 


27-OCT-77 13:17 


000000 
015015 
015037 
015057 
015101 
015125 
015147 
015166 
015210 
015233 
01£255 
015302 
015331 
015362 
015413 
015441 
015470 
015520 
co0000 
015543 
015567 
015613 
015637 
015664 
015706 
015731 
015753 


| 6 
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TEST HCADER POINTERS 


.SBTTL TEST HEADER POINTERS 
hi ~ CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 


DDDDVYPDOD DDD YD DY PPP YD PYYDDO 


;DUMMY TEST 


SEQ 0073 


DZTUD-0 TMHOZ DRIVE FUNCTION TIMER 
27-OCT-77 13:17 


DZ2TUDD. P11 


001762 
001764 
001766 
001770 


2311 001772 
002000 
002002 
2314 002010 
002016 
002024 
002026 
002032 
00203€ 
002042 
2321 002046 


002052 
002056 
002064 
002070 
002076 
002104 


002242 


000000 
000000 
000000 
000000 


022737 
001120 
012737 
042737 
022737 
001106 
000004 
000004 
017702 
004737 
co0004 


005037 
012737 
004737 
042737 
122737 
001001 
000751 
122737 
001012 
012737 
004737 
022737 
001034 
0004 37 
122737 
003004 
122737 
002003 
000004 
000746 
006337 
006337 
006337 
142737 
153737 
005337 
001756 
000715 
013777 
000740 
000207 


000176 


177562 
177600 
000007 


015775 
016002 
176740 
002632 
016011 


001764 
000007 
002244 
177600 
000025 


000015 
000200 
002362 
000007 
000060 
000067 
016021 
001764 
001764 
001764 
000060 


001762 
001766 


001764 


001002 
001762 


001762 
001762 


001766 
001762 
001762 
001762 
001770 
001766 


001762 
001762 


001762 
001764 


176542 


MACY11 30(1046) 


J 
27-OCT-77 


TEST HEADER POINTERS 


CKSWR: 


CNTLU: 


5S: 
6S: 


7$. 


' OUT: 


’ 


6 
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tae ag bingy REGISTER ROUTINE. CHECKS FOR G TO ALLOW CHANGING 


*;CALL_IS BY WAY OF JSR PC. CKSWR 
USED: 


+ LOCATIONS 

TIB: . WORD 
TEMPST: .WORD 0 
COUNT: .WORD 0 
ROSH: .WORD O 


CMP #SWREG, SHR 
OUT 


MOV TKB, TIB 

BIC #177600. TIB 
CMP #7,T1B 

BNE OUT 

TYPE.L. CNTG 
TYPE, L. SWR 

MOV OSWR, RZ 

JSR PC, TYPOCT 
TYPE. L. NEW 


CLR TEMPST 

MOV #7. COUNT 
JSR PC, TTIN 

BIC #177600, TIB 


CMPB #25, TI 
BNE 2$ 

BR CNTLU 

CMPB #15, TIB 

BNE 4% 

MOV #200, ROSW 
JSR PC, TCRLF 
CMP #7, COUNT 

BNE 7$ 

BR OUT 

CMPB #60, TIB 

BGT 5$ 

CMPB #67,TIB 
GE 


B 6$ 
TYPE. L. QUEST 
BR 3$ 

ASL TEMPST 
ASL TEMPST 


ASL TEMPST 
BICB #60, TIB 
BISB TIB. TEMPST 
DEC COUNT 

BEQ 5$ 

BR 


1$ 

MoV TEMPST. dSWR 
8$ 

RTS PC 


; SOF TWARE ~ REG PRESENT 
;NO, GET OUT 

; AND STRIP OFF 
+; THE GARBAGE 

71S ITA < & 


>GO READ A CHARACTER 
*STRIP OFF GARBAGE 
71S ITA U? 
; BRANCH IF NOT 

START OVER 
i 1S IT A <CR>? 
BRANCH IF NOT 


7ECHO IT WITH <LF> 


;WAS IT FIRST CHARACTER 
oa SWR IF NOT FIRST ONE 
QUT 


é 


START OVER IF NOT LEGAL CHARACTER 


;GET NITTY-GRITTY 
7ONLY WANT 6 DIGITS 


CHANGE SWITCH REGISTER CONTENTS 





SEQ 0074 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


002244 
002250 
2361 002254 
002260 
002264 
002270 
002272 
002300 
002304 
002306 
002314 


(1) 002316 
(1) 002317 
(1) 002320 


(1) 002321 
(1) 002322 
(1) 002324 
(1) 002326 
(1) 002327 
002330 


002334 
002336 
002342 
002350 


002354 


002410 
002412 


002414 
002420 


Foe tan ten tae tee Tan tan ta a ae te tae Tae ten tae ee ee eee ee ee ee et 

Se ee ee ee ee ed ee _) 

i ee ee 
N 


27-OCT-77 


005037 
005037 
005037 
005237 
105737 
100375 
013737 
105737 
100375 
112737 
000207 


000011 


005015 
002334 


010046 
017600 
062766 
105037 


105737 
001410 
000004 
105737 
100006 
005037 
000207 
112046 
001003 
005726 
012600 
000002 


122716 
001445 


13: 17 


177560 
177562 
001762 
177560 
177560 


177562 
177564 


001762 


000 


000002 
000002 
002327 
002327 


002330 
001770 


001770 


000011 


001762 


177566 


000002 


MACY11 3 
TEST HEA 


TTIN: 


TTINI: 


TTIN2: 


+; CALL: 


oe 


++ TAGS — BY THE TYPE ROUTINE 
H 


SNULL: 
SF ILL: 
STPFLG: 


STKFLG: 
STPS: 
STPB: 


SCHARCNT: . 
SCNTRLO: . 


SCRLF: 


. TYPE: 


TYPE1: 
TCRLF: 


TYPE2: 


TYPES: 


TYPE4: 


K 
0(1046) 27-OCT-77 
DER POINTERS 


6 
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+ TTY READ SUBROUTINE XXXEKX4K%K 


CLR TKS 

CLR TKB 

CLR TIB 

INC TKS 
TSTB TKS 

BPL TTING 
MoV TKB, TIB 
TSTB PS 

BPL TTIN2 


MOVB TB, TPB 
RTS PC 


.SBTTL PROGRAM oe egg Adah, 

. SBTTL TYPE SUBROUTINE 

;;ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

3; THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


TYPE 
MESADR 


ome @ 
.BYTE 2 
.BYTE 0 
.BYTE 0 
.WORD 177564 
.WORD 177566 
BYTE 0 
BYTE 0 
.ASCIZ ¢15><12> 
. EVEN 


MOV RO. - (SP) 
MOV @2(SP),RO 
ADD #2, 2(SP) 


CLRB SCNTRLO 
TSTB SCNTRLO 
BEQ TYPE2 
TYPE. SCRLF 

TSTB ROSH 

BPL TYPE3 

CLR ROSW 

RTS PC 

MOVB (RO)+, -(SP) 
BNE TYPE4 

TST (SP )+ 
MOV (SP)+,R0 
RTI 

CMPB #SHT, (SP) 
BEQ 9% 


+7A TRAP TYPE INSTRUCTION 
+;MESADR IS FIRST ADDRESS OF ASCIZ STRING 


BELOW 

;:HORIZONTAL TAB 

+; CONTAINS NULL CHARACTER 

>; CONTAINS # OF FILLER CHARACTERS 

;; CONTAINS TELEPRINTER AVAILABLE FLAG 
3307377 = AVAIL/NOT AVAIL 

;; CONTAINS KEYBOARD AVAILABLE FLAG 
;;ADDRESS OF TLEPRINTER STATUS REGISTER 
;;ADDRESS OF TELEPRINTER DATA BUFFER 
;; CONTAINS # OF CHARS TYPED 

3; CONTAINS CONTROL O CHAR CIF TYPED) 


+;SAVE RO 
+;GET MESSAGE ADDRESS 
+; ADJUST RETURN PC 


;;BRANCH IF CONTROL Of 0) WASN'T TYPED 
>; TYPE <CR><LF> 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BRANCH IF NOT THE TERMINATOR 

;;POP TERMINATOR CHAR OFF THE STACK 
;;RESTORE RO 

;;RETURN TO CALLER 


;;BRANCH IF HORIZONTAL TAB <HT> 


SEQ 0075 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 


Ce ee a ee ee a 
ee ee se ee ee ee ee ee ee ed de 
ee Ne Ne eee ee ae ae ae ae ae ae ae ae a we a we ae ws ae a as ew we 


002422 
002426 
002432 
0024 34 


002440 
002444 
002446 
002452 


002454 
002460 
002462 
002470 
002472 
002500 
002506 
002510 
002514 
002516 
002524 
002526 
002532 


002534 
002540 
002544 
002552 
002554 
002556 


002560 
002562 
002564 
002566 
002570 
002572 
002574 
002600 


002602 
002606 
002610 
002612 
002614 
002616 
002620 
002622 


004737 
122726 
001350 
013746 


105366 
002770 
004737 
000772 


105777 
100375 
122737 
001403 
116677 
122766 
001003 
105037 
000406 
122766 
002002 
105237 
000207 


112716 
004737 
132737 
001372 
105726 
000676 


010546 
010446 
010346 
010246 
010146 
010046 
016646 
000297 


012666 
012600 
012601 
012602 
012603 
012604 
012605 
006207 


27-OCT-77 13:17 


002454 
000012 


002316 


000001 


002454 


177642 
000017 


000002 
000015 


002326 
000012 
002326 


000040 
002454 
000007 


000014 


co0014 


002327 


177624 
000002 


000002 


002326 


MACY11 30(1046) 


35: 


4S: 


5S: 


63: 


7%: 


8$: 


L 
27-OCT-77 


TYPE SUBROUTINE 


JSR 


++ HOR 1 ZONTAL 
9S: 


10S: 


MOVB 


PC, 5$ 

#12, (SP)+ 
TYPE1 
SNULL, -(SP) 
1(SP) 

33 

PC,5$ 

4§ 

asTPs 

#17, @#SCNTRLO 
6$ 


2(SP), dSTPB 
#15, 2(SP) 


7$ 
SCHARCNT 
8$ 
#12, 2(SP) 
8$ 
SCHARCNT 
PC 


TAB <HT> PROCESSER 
#40, (SP) 


PC, 5% 

#7, SCHARCNT 
10% 

(SP )+ 

TYPE1 


6 
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+; TYPE CHARACTER 

++ CHECK IF CHARACTER WAS A LINE FEED 
+; BRANCH IF NOT LINE FE 

+;GET # OF FILLERS REQUIRED AND FILLER 
++ CHARACTER. 


+; DECREMENT FILLERS REQ. COUNT 
++BRANCH IF NO MORE FILLERS ARE REQUIRED 
++ TYPE FILLER CHARACTER 


++WAIT FOR OUTPUT DEVICE 


+;CHECK IF CONTROL O WAS TYPED 

++STOP TYPING MESSAGE IF O WAS TYPED 
+;OUTPUT CHARACTER 

+; BRANCH IF NOT <CR> 


++ CLEAR CHARACTERS TYPED COUNT 
+;BRANCH IF <LF> OR "NULL" 
+; INCREMENT CHARACTER TYPED COUNT 


++LOAD 'SPACE' 

+; TYPE ‘SPACE’ 

++ TYPE SPACES UNTIL A MULTIPLE 
+;0F 8 CHARACTERS HAVE BEEN TYPED 
+;POP SPACE 

+;GET NEXT CHARACTER 


4 riage cg SAVE GENERAL REGISTERS ON THE STACK 


CALL: 
. SAVE: 


RS, - (SP) 

R4, -(SP) 

R3, -(SP) 

RZ. - (SP) 

R1. - (SP) 
RO, - (SP) 
14(SP),-(SP) 
PC 


SAVE REGISTERS ON THE STACK 


;GET RETURN PC 
;RETURN 


; SUBROUTINE be. RESTORE GENERAL REGISTERS FROM THE STACK 


> CALL: 


RESTORE 


. RESTORE: MOV 
M 


(3P)+, 14(SP) 
(SP)+.RO 
(SP)+,R1 
(SP)+,R2 
(SP)+,R3 
(SP)+,R4 
(SP)+,R5 

PC 


*MOVE RETURN PC 
RESTORE REGISTERS 


;RETURN 


> SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 


SEQ 0076 


DZTUD-D TMOZ DRIVE FUNCTION —— 


DZTUDD. P11 


002624 
002630 


002632 
002636 
002636 
002642 
002646 
002650 
002652 
002654 
002656 
002662 


002664 


002730 


002732 
002736 


002740 
002744 
002744 
002750 
002752 
002756 


27-OCT-77 


110637 
000402 


105037 


004737 
012704 
005003 
010201 
006302 
006103 
012700 
CO0404 


006302 
006103 
005301 
001374 
012701 
116324 
005003 
005300 
001365 
105737 
001002 
000004 


004737 
000207 


110637 
000402 


105037 


004737 
005000 
012704 
005003 


13: 


001130 


001130 


002560 
001146 


000006 


000003 


001134 


001130 


001146 
002602 


001130 


001130. 


002560 
001146 


M 6 
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TYPE SUBROUTINE 


+CALL: MOV NUMBER, RZ ;MOVE NUMBER TO R2 
; JSR PC, CNVOCT 


CNVOCT. MOVB SP. TYPFLG 
BR CNVTO 


+SET DO NOT TYPE FLAG 


. SBTTL OCTAL TO ASCII & TYPE ROUTINE 
; SUBROUTINE TO CONVERT OCTAL NUMBER TO ASCI! AND TYPE IT OUT 


;CALL: MOV NUMBER. R2 ;PUT # IN RZ “ 
3 JSR PC, TYPOCT > CALL ROUT INE 
TYPOCT: CLRB Os TYPFLG ;SET TYPE FLAG 
CNVTO: Wet 
JSR PC,. SAVE ;SAVE REGISTERS ON THE STACK “hes. 
MOV #ODIGITS, RY ;SET PTR TO OUTPUT 
CLR R3 +R3 WILL CONTAIN OCTAL DIGIT 
MoV R2,R1 ;GET # TO BE TYPED 
18: ASL RZ + SHIFT & 
ROL R3 
MOV #6,R0 ;SET DIGIT COUNTER 
BR 35 
28: ASL RZ ; SHIFT # 3 PLACES LEFT 
ROL R3 
DEC R1 
BNE 23 
33: MOV #3,R1 ;SET SHIFT COUNTER 
MOVB DIGTAB(R3). (RY)+ ;MOVE ASCII EQUIV TO OUTPUT 
CLR R3 
DEC RO ;DECREMENT DIGIT COUNT 
BNE 25 ;GET NEXT DIGIT 
TSTB ae TYPFLG ;BRANCH IF ASCII IS 
BNE 4S :NOT TO BE TYPED 
TYPE, ODIGITS 
4S: 
fa wl a ;RESTORE REGISTERS FROM THE STACK 
P 


; SUBROUTINE TO CONVERT OCTAL DATA TO DECIMAL ASCII 
*CALL: MOV NUMBER, R2 ;MOVE NUMBER TO R2 
; JSR PC,CNVDEC - 


CNYDEC: MOVB Ak Nae 


BR 
SBTT OCTAL TO DECIMAL & TYPE ROUTINE 
; THIS ROUTINE CONVERTS AN OCTAL # TO DECIMAL ASCII AND TYPES IT OUT 


+ SET DO NOT TYPE FLAG 


;CALL: MOV NUMBER. R2 ;PUT # IN R2 

; JSR PC, TYPDEC ;CALL ROUTINE 

press: CLRB ae TYPFLG ;SET TYPE FLAG 

CNVTD: 
JSR PC,. SAVE ;SAVE REGISTERS ON THE STACK 
CLR RO ;RO 1S INDEX TO DECIMAL CONSTANT 
MOV #ODIGITS.R4Y : SET OUTPUT PTR 

1$: CLR R3 ;R3 CONTAINS DECIMAL DIGIT 


SEQ 0077 


DZTUD-D0 THOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 13: 17 


002760 


003036 


003040 
003042 
003044 
003046 
003050 
003052 


003054 
003056 


003146 


27-OCT-77 
166002 


ooco04 


004737 
000207 


023420 
001750 
000144 
000012 
000901 
000000 


010246 


006207 


003040 


003040 
001134 
000002 
003040 


000060 
001130 


001146 
002602 


014775 
001420 
002740 
001407 
001422 
002740 
001414 
015005 
001014 
002740 
001376 


N 6 
MACY11 3001046) 27-OCT-77 13:42 PAGE 17-3 
OCTAL TO DECIMAL & TYPE ROUTINE 


23: SUB DCONST(RO), RZ . +SUBTRACT DECIMAL CONSTANT UNTIL 
BLO 3$ + INPUT # GOES NEGATIV 
- og ;KEEPING TRACK OF SUBTRACTIONS 
34: ADD DCONST(RO), RZ + ADD BACK CONSTANT WHEN NEGATIVE 
MOVB DIGTABC(RS), (R4Y)+ MOVE ASCII ahs 
ADD #2,R0 ;NEXT CONSTAN 
a Spee ;UNTIL ALL CONSTANTS DONE 
MOVB #'O, (R4Y)+ +LAST OIGIT IS O 
TST8 Oe TYPFLG +BRANCH IF ASCII IS 
BNE 4§ +NOT TO BE TYPED 
‘ TYPE, ODIGITS 
4S: 
JSR PC,. RESTORE ;RESTORE REGISTERS FROM THE STACK 
RTS PC 
DCONSS: . WORD 10000. 
. WORD 1000. 
WORD 100 
WORD 10 
. WORD 1. 
. WORD 0 + TERMINATOR 


SBTTL TYPE SPECIFIED TIMES ROUTINE , 
; THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
*AND ALSO THE ACTUAL TIME RECORDED (ATIME) 
FORMAT OF LINE TYPED 
+ RANGE = <AAARAA-BBBBBB> ACTUAL =CCCCCC 
; WHERE: AAARAAR 1S MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
; BBBBBB 1S MINIMUM TIME FOR TEST (STIMTBL(TSTNUMNX4+2) ). 
; CCCCCC 1S ACTUAL TIME RECORDED BY TEST (ATIME). 
*CALL: MOVB TEST NUMBER.R2 ;LOAD TEST NUMBER 


MOV RTIME, ORATIME >MOVE TIME TO ATIME 

; JSR PC, OUTSPC 

OUTSPC: MOV R2,-(SP) +SAVE RZ & R3 ON THE STACK 
ASL R2 *MULTIPLY TEST # TIMES 4 
ASL R2 >TO FORM INDEX INTO STIMTBL 


*R3 CONTAINS INDEX INTO TABLE 
+GET MAXIMUM SPEC TIME 


MoV R2,R3 
TYPE.L. RNG 
MOV STIMTBL(R3).R2 


JSR PC. TYPDEC ;CONVERT TO DECIMAL & TYPE 
TYPE, DASH 

MOV STIMTBL#2(R3),R2 ;GET MINIMUM TIME 

JSR PC, TYPDEC , ‘CONVERT TO DECIMAL & TYPE 
TYPE. ANGTAB 

TYPE,L. ACT 

MOV OSATINE,R2 ;GET ACTUAL TIME 

JSR PC, TYPDEC > CONVERT TO DECIMAL & TYPE 
TYPE. CRLF 

MoV (SP )+,R3 

MOV (SP)+,R2 

“RTS PC > RETURN 

. SBTTL TYPE GAP TIMES SUBROUTINE 


SEQ 0078 


DZTUD-D TMOZ DRIVE FUNCTION —— 


DZTUDD. P11 


003150 
003152 
003154 
003160 
003162 
003164 
003170 
003174 
003200 
003204 
003210 
003214 
003220 
003224 
003230 
003234 
003240 
003244 


003250 


003254 
003256 
003260 


002262 
003262 
003266 
003272 
003276 
003300 
003304 
003310 
003312 
003314 
003320 
003324 
003326 
003332 
003334 
003336 
003340 
003342 
003342 
003346 


27-OCT-77 13: 


010246 


000207 


004737 
012700 
012701 
005011 
005061 
122710 
001414 
112002 
042792 
012703 
006311 
006161 
005303 
001373 
050211 
000761 


004737 
000207 


001122 


014775 
001574 
002740 
001407 
001576 
002740 
001414 
015005 
001014 
002740 
014464 
001122 
002632 
001376 


002560 
001266 
001120 
000002 
000015 
177770 
000003 


000002 


002602 


8 7? 
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TYPE GAP TIMES SUBROUTINE 


+ THIS SUBROUTINE IS USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 
TSTO21). IT 1S CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 
SRANGE VIA THE HLT ROUTINE (HLT+2). 


*CALL: MOVB #GAP. GAP 
TIME, ATIME 


; MOV 
; JSR PC, OUTGAP 
OUTGAP: MOV R2,-(SP) 


MOV R3,-(SP) 
MOVB “ype 


A R3 

TYPE. L. RNG 

MOV GTIMTBL(R3),R2 
JSR PC, TYPDEC 


H 
MOV GTIMTBL+2(R3),R2 
JSR PC, TYPDEC 
TYPE, ANGTAB 
TYPE.L. ACT 
MOV OFATINE, RZ 
JSR PC, TYPDEC 


;LOAD GAP # INTO GAP 
LOAD ACTUAL TIME INTO ATIME 


SAVE RZ AND R3 
+GET GAP &# 


+GET MAX TIME 
+; CONVERT TO DECIMAL & TYPE 


+GET MIN TIME 
+ CONVERT TO DECIMAL & TYPE 
< 


, 


+GET ACTUAL TIME 
+ CONVERT TO DECIMAL & TYPE 


TYPE. E. GAP 

MOVB O# GAP, RZ ;GET GAP # 

JSR PC, TYPOCT + TYPE GAP # 

TYPE, CRLF 

MOV (SP)+,R3 RESTORE R3 AND R2 
MOV (SP)+,R2 

RTS PC 

. SBTTL ASCII! TO OCTAL CONVERT SUBROUTINE 


; SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 


>1S LEFT IN OCTALO <15-00>. 


CNVTAO: 
JSR PC,. SAVE 
MOV # |INBUF, RO 
MoV #OCTALO, R1 


CLR (R1) 
CLR 2(R1) 

1$ CMPB #CR, (RO) 
BEQ 3$ 


MOVB (RO)+,R2 
BIC #177770.R2 


MoV #3,R3 
2S: ASL (R1) 
ROL 2(R1) 
DEC R3 
BNE 2$ 
BIS R2, (R1) 
BR 1$ 
3$. 
JSR PC,. RESTORE 
RTS PC 
S 


;SAVE REGISTERS ON THE STACK 
+SET PTR TO ASCII! DATA 

;GET ADDRESS OF OCTAL DATA 
;CLEAR OUT OLD OCTAL DATA 


><CR> TERMINATES INPUT 


*GET ‘OCTAL' DATA 
STRIP UNUSED BITS 
SET SHIFT COUNT 
SHIFT LAST 

-OCTAL DIGIT 


AND INSERT THIS DIGIT 
>GO GET NEXT DIGIT 


RETURN REGISTERS FROM THE STACK 
URN 


"PUBLISH SUBROUTINE 


BTTL 
; THE PURLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 


SEQ 0079 













DZTUDD. P11 


















003350 

(1) 003350 
2565 003354 
2566 003360 
2567 003364 
2568 003370 
2569 003372 
2570 003374 
2571 003376 
2572 003402 
2573 003404 
2574 003406 





















2577 003410 
2578 003412 
2579 003414 
003416 


003420 
2583 003424 
2584 003426 
2585 003430 
2586 003432 
003434 


2589 003440 
2590 OO3444 
2591 O03446 
2592 003454 
2593 003456 
2594 003460 
2595 cO3464 
2596 003470 
2597 003474 






































2604 003476 
2605 003500 
2606 003504 
2607 003510 


2609 003512 
2610 003516 
2611 003522 
2612 003526 
2613 003530 
003532 








004737 
012700 
113701 
122701 


001423. 


005002 
005003 
122701 
001402 
000000 
000777 


062002 
005503 
005301 
001374 


012700 
006203 
006002 
005300 
001374 
010237 


113700 
006300 
016037 
000004 
000000 
113702 
004737 
004737 
000207 


010046 
012700 
105737 
100375 


113746 
042716 
122716 
001004 
124026 
000004 
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002560 
001016 
001123 


000001 


000020 


000004 


001014 
001124 
001674 





001124 
003054 
002602 


C01266 
177560 


177562 
000200 
000177 


001401 


003456 






C 7? 
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PUBLISH SUBROUTINE 


‘ERATION CIF 16. ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME’. 
+1T TYPES THE NAME OF THE FUNCT!ON THAT WAS TIMED. THE TIME SPEC- 
+ IFICATION AND THE ACTUAL TIME . 


PUBL | SH: 
JS PC,. SAVE ;SAVE REGISTERS ON THE STACK 
MOV #ATIMTBL, RO ;GET TABLE ADDRESS CONTAINING TIMES 
.MOVB Ot I TCNT.R1 ;GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
a + ;BRANCH IF SINGLE ITERATION 
CLR R2 ;CLEAR ‘SUM’ REGISTERS 
CLR R3 . 
Ag typhi ;BRANCH IF 16. ITERATIONS 
1 
HALT ; ITERATION COUNT MUST BE 1 OR 16. 
BR 1 ;DO NOT CHANGE POSIT OF SW11 


+WHEN TEST |S RUNNING. 


15: ADD (RO)+,R2 ;SUM INDIVIDUAL TIMES 
ADC R3 
DEC Rl 





3$: ASR R3 +SHIFT TIME IN RZ & R24 PLACES 
ROR RZ * sRIGHT = DIVIDE BY 16 
DEC RO 
BNE 3$ 
MOV R2, d#AT IME ;MOVE AVERAGED TIMES 





4S: yy ——— +GET TEST & 
ASL R 
awe NAMPTR(RO), 5S :GET TEST NAME STRING ADDRESS 
Y 
5S: .WORD OQ 
MOVB O# TSTNUM, R2 *GET TEST &# 
JSR PC, OUTSPC ;QUTPUT TIMES 
fe io Seer ;RESTORE REGISTERS FROM THE STACK 
S 


. SBTTL INPUT SUBROUTINE 
; SUBROUTINE TO GET ar INPUT 


-CALL: JSR PC,. INPUT 
+ INPUT Gata 1S RETUNED IN BUFFER BEGINNING AT INBUF. 
INPUT: MOV RO, - (SP) *SAVE RO ON THE STACK 

1$: MoV # INBUF, RO 
2S: TSTB de TKS 

BPL 2$ 

MOVB a8 TKB, - (SP) GET CHARACTER 

BIC #200, (SP) 

ny #177, (SP? + CHECK RUBOUT 

N 


3$ 
CMPB ~(RO), (SP)+ ;REMOVE CHARACTER FROM INPUT 
TYPE. BKSLSH 
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2615 003536 000762 

2616 003540 122716 000025 

2617 003544 001004 

2618 003546 005726 

2619 003550 000004 001376 

2620 003554 000751 

2621 003556 111637 001403 

2622 003562 111620 

2623 003564 122726 000015 
- 2624 003570 001403 

2625 003572 O00004 001403 

2626 003576 000742 

2627 003600 O0C004 001376 

2628 003604 012600 

2629 003606 000207 


2632 003610 113746 177562 
2633 003614 042716 000200 
2634 003620 122716 000017 
2635 003624 001003 
2636 003626 112637 002327 
2637 003632 000002 


2639 003634 122726 000003 
2640 003640 001003 
2641 003642 900005 
2642 003644 000137 005750 
2643 003650 000002 


D 
MACY11 30(104%6) 27-OCT-77 
INPUT SUBROUTINE 


BR 23 
35: CMPB #CNTRLU, (SP) 
BNE  4§ 
TST (SP )+ 
TYPE, CRLF 
BR 1$ 
4$: MOVB (SP), O#ECHO 


MOVB (SP), (RO)+ 
CMPB #CR, (SP)+ 
BEQ 5% 
TYPE, ECHO 
BR 2% 

5S: TYPE, CRLF 


MoV (SP)+,RO0 
RTS PC 


+KEYBOARD INTERRUPT SERVICE ROUTINE 
TKISR: MOVB @ 


TKB, - (SP) 
BIC #200, (SP) 
CMPB #CNTRLO, (SP) 


#3, (SP )+ 
2$ 


JMP ar INIT 
28: RTI 


1% 
MOVB (SP) +, SCNTRLO 


? 
13:42 PAGE 17-6 


;WAIT FOR NEXT CHARACTER 
+ CHECK CONTROL U ( U) 


+GET TYPED CHARACTER 
;STRIP PARITY BIT 
+BRANCH IF NOT CONTROL 0 (¢ O) 


;SET CONTROL O INDICATOR IN TYPE ROUTINE 
SERUT 
;BRANCH IF NOT CONTROL C ( ©) 


;RESTART PROGRAM 
; EXIT 


SEQ 0081 





? 
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E 
27-OCT-77 


DZTUD-D TMOZ DRIVE FUNCTION TIMER MACY11 30(1046) 


DZTUDD. P11 27-OCT-77 13:17 ERROR SERVICE ROUTINES SEQ 0082 
2645 . SBTTL ERROR SERVICE ROUTINES 
2646 ; ROUTINE an PROCESS ERROR TRAPS (TRAPS TO 4) 
one 003652 000000 ERRTRP: HALT 
2649 ERROR SERVICE ROUTINE 
2650 + THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND —a 
2651 +; THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>, <HLT+2> AND, FOR A 
aes +HAROWARE ERROR THE CALL IS <HLTD. 
2654 003654 004737 001772 _ HLT: JSR PC, CKSWR +CHECK FOR CNTL G 
2655 003660 004737 002560 JSR PC,. SAVE + SAVE REGISTERS ON THE STACK 
2656 003664 110637 001125 1$: MOVB SP. O#ERFLG SET ERROR FLAG 
2657 003670 032777 O20000 175104 BIT #SW13, ISWR BRANCH IF NO TYPOUT 
2658 003676 001075 BNE 4§ 
2659 003700 O00004 014265 TYPE, E. HOR 
2660 003704 113702 001124 MOVB O# TSTNUM, RZ GET TEST & 
2661 003710 004737 002632 JSR PC, TYPOCT ;AND TYPE IT 
2662 003714 016600 000016 MOV 16(SP),R0 +GET RETURN PC 
2663 003720 162700 000002 SUB #2,R0 +NOW PC OF HLT CALL 
2664 003724 111000 MOVB (RO), RO +NOW HLT CALL ITSELF 
2665 003726 001417 BEQ 2$ +BRANCH IF HLT 
2666 003730 000004 014350 TYPE, E. HORZ 
2667 003734 122700 000002 CMPB #2,R0 >BRANCH IF NOT HLT+2 
2668 003740 001005 BNE 10% 
2669 003742 004737 003150 JSR PC, OUTGAP ; TYPE GAP SPECIFIED TIMES 
2670 003746 O00004 001376 TYPE, CRLF 
2671 003752 000447 4% 
2672 003754 004737 003054 10S: JSR PC, OUTSPC TYPE SPECIFIED TIMES 
2673 003760 O00004 001376 TYPE, CRLF 
2674 003764 000442 BR 4$ 
2675 003766 016500 000014 2$ MOV ER(R5),RO 
2676 003772 032765 002000 900032 BIT #PE1600, TC(RS) 
2677 004000 001403 BEQ 20% 
2678 004002 042700 102100 BIC #102100, R0 
2679 *004006 000402 BR 21% 
2680 004010 042700 102300 208: BIC #102300, RO 
2681 004014 005700 215: TST RO 
2682 004016 001003 BNE 22% 
2683 004020 OO00004 014241 TYPE.E. SFT > TYPE SOFT ERROR MESSAGE 
eae 004024 000436 BR 6$ 
6 
2686 004026 000004 014275 228: TYPE. €. HOR1 
2687 004032 010590 MoV R5,.RO GET FIRST ADDRESS OF REGS 
2688 004034 012701 000007 MoV #7.,R1 TYPE FIRST 7 REGS 
2689 004040 012002 3: MOV (RO)+,R2 GET REG CONTENTS 
2690 004042 004737 002632 JSR PC, TYPOCT AND TYPE IT F 
2691 004046 000004 001411 TYPE, SPACE2 
2692 004052 005301 DEC R1 
2693 004054 001371 BNE 3$ 
2694 004056 016502 000032 MoV TC(R5),R2 ;GET CONTENTS OF TC REGISTER 
2695 004062 004737 002632 JSR PC, TYPOCT 
te 004066 000004 001376 TYPE, CRLF 
26 
2698 004072 032777 001000 174702 4%: BIT #SWO9, aSHR >BRANCH IF NO RING THE BELL 
2699 004100 001402 BEQ 5% 
2700 004102 000004 001405 TYPE. BELL 
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2701 004106 023737 000042 000046 
2702 004114 001002 
2703 004116 000000 
2704 004120 O00404 
2705 004122 005777 
2706 004126 100001 
2707 004130 000000 
2708 004132 004737 
2709 004136 004737 
2710 004142 000002 


174654 


001772 
002602 


MACY11 30(1046) 
ERROR SERVICE ROUTINES 


5%: 


F 
27-OCT-77 13:42 PAGE 17-8 


SEQ 0083 


0842, 0846 ;ACT11 AUTO MODE? 
6% 7 NO. 

7% 

OSWR ;HALT ON ERROR? 
7$ 

PC, CKSWR "> CHECK FOR CNTL G 


PC,. RESTORE Pb any REGISTERS FROM THE STACK 


; RETURN 


G 7? 
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DZTUDD. P11 27-OCT-77 13:17 SCOPE SUBROUTINE SEQ 0084 
2714 . $B SCOPE SUBROUTINE 
2715 ; SCOPE ROUTINE 
2716 ; THIS ROUTINE Is ENTERED UPON COMPLETION OF EACH SUBTEST 
2717 ; THE SCOPE ROUTINE: 
2718 ; OUTPUTS TIME SPEC ON EACH ITERATION IF SWO8 IS SET 
2719 ; REPEATS TEST IF SWi4 IS SET 
2720 ; STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 
2721 ; PUBLISHES TIME IF SW10=0 
2722 : UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
272 ; TO NEXT TEST, OTHERWISE REPEATS TEST. 
2724 ; DELAYS BEFORE CONTINUING OR REPEATING TEST. 
272 ; INITIALIZES DRIVE 
2726 ; RETURNS: RS=BASE ADDRESS OF” Taz" REGISTERS-+ADDRESS OF ($1) 
272? ; Ri='DS' REG ADDRESS 
2728 ; RO='FC' REG ADDRESS 
2730 004144 004737 001772 SCOPE: JSR PC, CKSHR ;CHECK FOR CNTL G 
2731 004150 013705 001012 MoV ae TNBASE. RS ;SET RS TO FIRST TM REG 
2732 004154 032777 O00400 174620 BIT #SWO8, ISWR ;BRANCH IF SPECIFICATION LINE 
2733 004162 001404 BEQ 10$ ;NOT DESIRED ON EACH ITERATION 
2734 004164 113702 001124 MOVE = a* TSTNUM, R2 ;GET TEST NUMBER 
2735 004170 004737 003054 JSR PC, OUTSPC ;OUTPUT TIME RECORDED 
2736 004174 032777 O4O000 174600 108: BIT #SW14, SHR ;BRANCH IF CONTINUOS LOOP 
2737 004202 001417 BEQ 28 ;NOT DESIRED 
2738 004204 004737 004764 15: JSR PC, DELAY ;DELAY 350 MS 
2739 004210 004737 005220 JSR PC, RHINIT ; INIT 
2740 004214 105037 001125 CLRB = ARERFLG ; CLEAR ERROR FLAG 
2741 004220 013716 001004 Mov SCPADR, (SP) 
2742 004224 - 010501 Mov R5,R1 
2743 004226 062701 000012 ADD #0S, R1 ; ADDRESS OF ‘DS' REG IS IN R1 
2744 004232 010500 Mov R5,RO 
2745 004234 062700 000006 ADD #FC, RO ;ADDRESS OF ‘FC’ REG iS IN RO 
2746 004240 000002 - RTI 
4 
2748 004242 105737 001125 25: TSTB = ARERFLG ;BRANCH IF ERROR FLAG 1S SET 
2749 004246 001006 BNE 38 
2750 004250 113700 001123 MOVB aR I TCNT. RO ;GET ITERATION COUNT 
2751 004254 006300 ASL R ;STORE TIME IN TABLE 
2752 004256 013760 001014 001016 MOV DFATIME, ATIMTBL (RO) 
2753 004264 105237 001123 38: INCB aR ITCNT ; INCREMENT ITERATION COUNT 
2754 004270 005737 001000 TST aePASS 1ST PASS? 
2755 004274 001410 BEQ 4S : YES 
2756 004276 032777 OO¥O00 174476 BIT #SW11, aSHR ;BRANCH IF SINGLE ITERATION DESIRED 
2757 004304 001004 BNE 4S 
2758 004306 122737 000020 001123 CMPB #16. ,@#ITCNT ;BRANCH IF ITERATIONS INCOMPLETE 
2759 004314 001333 BNE 1$ 
2760 004316 011637 .001004 us: nov (3P), a#SCPADR ;SET SCOPE ADDRESS TO NEXT TEST 
2761 004322 032777 002000 174452 BIT #SW10, aSHR ;BRANCH IF NO PUBLICATION DESIRED 
2762 004330 001002 BNE 55 
2763 004332 004737 003350 JSR PC, PUBLISH ;GO PUBLISH TEST DATA 
2764 004336 105037 001123 5S. CLRB = @BITCNT ;RESET ITERATION COUNT 
2765 004342 105777 174434 TSTB. ss ASWR ;BRANCH IF USER DOES NOT WANT TO 
2766 004346 001716 BEQ 15 ;HALT ON A SELECTED TEST 
2767 OO4350 017746 174426 MOV SHR, - (SP) GET SWITCHES 
2768 004354 042716 177740 BIC #177740, (SP) ;CLEAR ALL BUT TEST # 
2769 004360 005316 DEC (SP) FORM TEST # -1 
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004362 
004 366 
004370 
004372 
004376 


004400 
004402 
004406 
004414 
004416 
004424 
0044 26 


0044 30 
004432 
004440 
004442 


OO444y 
004452 
004454 


004470 
004472 
004474 
004476 
004500 
004504 
004506 


004514 
004522 


27-OCT-77 13:17 


123726 
001306 
000000 
004737 
000702 


005004 


012703 
032765 
001405 
032765 
001374 
000405 


005403 
032765 
001774 
000207 


032765 
001406 
000112 


004470 
005403 
005204 
100401 
000112 
000004 
104400 
000177 


004514 


032765 
001362 


001124 


001772 


000024 
000100 


000100 


000100 


000100 


014376 
174272 


000100 


000024 
000024 


000024 


000024 


000024 
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SCOPE SUBROUTINE 


CMPB » Naan tcaar: BRANCH IF NOT AT TEST 


JSR a + CHECK FOR CNTL G 


.SBTTL TIMER SUBROUTINES 


+ SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON 
;REGISTER 4 1S CLEARED, AND THE OSCILLATOR POLARITY 1S MONITORED 
+ THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
*SET TO INDICATE THE os OF THE OSCILLATOR 
| 


+ CALL: JSR of | N 
> RETURNS: ay ay TO INDICATE LAST POLARITY (424/7-24=0/71) 
; Ys 
TIMON: CLR Ry ; CLEAR TIME COUNT 
MOV #24,R3 ;SET POLARITY TO ‘O' STATE 
ah pact ;BRANCH IF POLARITY IS ‘0’ 
1$: BIT ROSC,MRC(RS) ;WAIT FOR OSCILLATOR TO RETURN 
BNE 1$ 
BR 4S 
Ze: NEG R3 >NEGATE PREY POLARITY INDICATOR 
35: BIT #OSC,MRC(RS) ;WAIT FOR OSCILLATOR TO RETURN 
BEQ 3$ ;TO ‘1' STATE 
4S: RTS PC 


SUBROUTINE TO COUNT TIME 

EACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
7;R4 1S INCREMENTED. AND THE REGISTER R3 1S NEGATED TO INDICATE 

>THE LAST STATE OF THE OSCILLATOR. 

;CALL =P TIMER(R3) 7R3 1S SET BY TIMON ROUTINE 

; R2=RETURN ADDRESS TO CALLER 

NOTE: THE TIME TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 
LESS THAN 40 US. 


ENTER HERE VIA JMP TIMER(R3) WHEN R2=-24 (PREV STATE=1) 


TIMER1: BIT #OSC, MRC(RS) >BRANCH IF CURRENT STATE IS ‘O' 
BEQ TIMER /GO INCREMENT TIME 
JMP (R2) ;PETURN TO TEST 
. =TIMER1+24 

TIMER: NEG ~ R3 /NEGATE PREV STATE INDICATOR 
INC R4 > INCREMENT ‘TICK’ COUNT 
BMI TIMERR > BRANCH ON OVERFLOW 
JMP (R2) RETURN TO TEST 


TIMERR: TYPE.E. TIMOV 7; TYPE ‘TIMER OVERFLOWED' 
HLT REPORT HARDWARE ERROR 
JMP aSCPADR RETURN TO BEGINNING OF TEST 


_ =TIMER+24 

sENTER HERE VIA JMP TIMER(R3) WHEN R3=+24 (PREV STATE=0) 

TIMERO: BIT rte agi: ;BRANCH IF CURRENT STATE = ‘1° 
BNE IM 


SEQ cos | 
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2826 
? 


004524 


004526 
004526 
004532 


» 004536 


004540 
004542 
004544 
004546 
004550 
004552 
004554 


004556 
004560 
004564 
004570 
004572 
004576 
004602 
004604 
004606 
004614 
004616 
004624 
004626 
004630 
004630 
004634 


004636 
004636 
004642 
004646 
004650 
004652 
004654 
004656 
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000112 


004737 
012700 
010401 
005002 
005003 
060002 
005503 
005301 
001374 
010246 


010346 
012746 
004737 
005726 
012637 
113700 
006300 
006300 
023760 
101004 
023760 
101001 
104401 


004737 
030207 


004737 
012700 


010401 . 


005002 
005003 
060002 
005503 


13: 


002560 
000070 


000012 
005052 


001014 
001124 
001014 
001014 


002602 


002560 
000070 


001420 
001422 
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TIMER SUBROUTINES 


JMP (R2) 


+SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 

+ THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
+; THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
+WITH THE HIGH LIMIT (STIMTBL(RO)) AND THE LOW LIMIT (STIMTBL42(RO)). 

+ 1F THE TIME 1S OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 

+ THE SUBROUTINE IS ENTERED WITH: 


; R4=TICK COUNT 
TIMOK: 
PC,. SAVE + SAVE rr ae ON THE STACK 
MOV #56. ,R0 ;GET TIME PER T = 
MOV R4,R1 GET TICKS COUNT 
ae 5 + CLEAR SUMMING REGISTERS 
L 
1$: ADD RO,R2 ;MULTIPLY TIME PER TICK 
ADC R3 +BY TICK COUNT 
DEC R1 
BNE 1% 
MOV RZ, -(SP) DIVIDE COUNT BY 10 


MOV #19. ,-CSP) 
JSR PC, DIVIDE 


TST (SP )+ DISCARD REMAINDER 
MOV (SP)+, d#AT IME + STORE QUOTIENT 
MOVB d*# TSTNUM, RO ;GET TEST # 
ASL RO 
ASL RO 
CMP OR ATIMNE, STIMTBL(RO) >CHECK THAT TIME IS WITHIN 
BHI 2$ 7LIMITS SPECIFIED 
CMP OFATIME, STIMTBL4+2(RO) 
BHI 3$ 
23: HLT+1 CALL ERROR ROUTINE 


3S: 
JSR PC,. RESTORE ;RESTORE REGISTERS FROM THE STACK 
RTS PC ; RETURN 


; SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TSTO21) 

; SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

; THAT THE GAP TIME RECORDED BY THE SUBTEST (TSTO21) BY COMPARING THE 
* TIME WITH THE MAX LIMIT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 


+: Feta GAPTBL(R1)). 
> CAL MOV #TICK COUNT, RY 7R4Y CONTAINS TICK COUNT 
MOVB #GAP, d#GAP >LOCATION GAP CONTAINS GAP & 


; JSR Pc, GAPOK 


GAP OK: 
JSR PC,. SAVE ;SAVE REGISTERS ON THE STACK 
MoV #56. ,R0 ;GET TIME PER TICK 
MOV R4Y,RI1 ;GET TICK COUNT 
oe 4 ;CLEAR SUMMING REGISTERS 
CL 
19. ADD ~° RO-R2 ;MULTIPLY TICK COUNT. 
ADC R3 +BY TIME PER TICK 


SEQ 0086 


. ¥ 
DZTUD-D TMOZ DRIVE FUNCTION TIMER MACY11 30(1046) 27-OCT-77 13:42 PAGE 17-12 


DZ2TUDD. P11 27-OCT-77 13:17 TIMER SUBROUTINES SEQ 0087 
2879 004660 005301 DEC R1 
ay 004662 001374 BNE 1$ 
2882 O04664 010246 MOV R2,-(SP) sDIVIDE TIME BY 10 
2883 004666 010346 MOV R3,-(SP) 
2884 004670 012746 000012 MOV #10. ,-(SP) 
2885 004674 004737 005052 JSR PC, DINIDE of 
2886 004700 005726 TST (SP)+ * DISCARD REMAINDER 
2887 004702 012637 001014 MOV (SP)+, O#ATIME +STORE QUOTIENT 
2888 004706 113703 001122 MOVB d*#GAP,R3 GET GAP & 
2889 004712 006303 ASL R3 ;MULTPLY BY 4 = 
2890 004714 006303 ASL R3 +TO GET AT TABLE ENTRY 
2891 004716 O22763 001014 001574 CMP O#ATIME. GTIMTBL (RS) ;CHECK TIME (MAX) 
2892 004724 101004 BHI 2$ 
2893 004726 023763 001014 001576 CMP OFATIME,GTIMTBL4+2(R3) -;CHECK TIME (MTN) 
2894 004734 101002 BHI 3% 
2895 004736 104402 23: HLT+2 REPORT OUT-OF RANGE ERROR 
2896 004740 000406 BR 100% 
2897 004742 032777 OOOKOO 174032 3%: BIT #SWO8, dSWR ;BRANCH IF TIMES NOT WANTED 
2898 004750 001402 BEQ 100% 
a0 -004752 C04737 003150 JSR PC. OUTGAP TYPE GAP TIMES 
2901 004756 100$: 
(1) 004756 004737 002602 JSR PC.. RESTORE RESTORE REGISTERS FROM THE STACK 
tay 004762 000207 RTS PC ;RETURN TO TEST 
2904 SBTTL DELAY SUBROUTINES 
2905 ‘ ; THIS SUBROUTINE CAUSES A DELAY OF 350 NS. 
2906 004764 004737 004400 DELAY: JSR PC, TIMON 
2997 004770 010246 MoV R2,-(SP) SAVE R2 ON THE STACK 
2908 004772 012702 005002 MOV #2$,R2 ; SET RETURN ADDRESS FOR TIMER 
2909 004776 1$: 
(1) 004776 000163 004470 JMP TIMER(R3) :;GO TO TIMER & RETURN VIA R2 
2910 005002 032704 004000 2: BIT #4000, R4 
2911 005006 001773 BEQ 1$ 
2912 005010 012602 MOV (SP)+,R2 RESTORE R2 
4 005012 000207 RTS PC : 
14 : 
2915 THIS SUBROUTINE ALLOWS A CALLER SPEC'FIED DELAY (UP TO 65MS. ) 
2916 7 CALL MOV DELAY TIME. DELTIN >LOAD DELAY TIME (IN US) 
2917 JSR PC, DELAYV 
2918 005014 005737 001116 DELAYV: TST DELTIM BRANCH IF 0 DELAY 
2919 005020 001413 BEQ 3$ 
2920 005022 004737 004400 JSR PC, TIMON ; TURN TIMER ON 
2921 005026 010246 MOV R2,-(SP) ;SAVE R2 ON THE STACK 
2922 005030 012702 005040 MoV #2$,R2 SET RETURN ADDRESS FROM TIMER 
2923 005034 1$: 
(1) 005034 000163 004470 JMP TIMER(R3) >GO TO TIMER & RETURN VIA R2 
2924 005040 023704 001116 23: CMP OSDELTIM, RY 
2925 005044 101373 BHI 1% 
2926 005046 012602 MoV (SP)+,R2 ;RESTORE R2 
oo 005050 000207 3$: RTS PC 
2929 .SBTTL DIVIDE SUBROUTINE 
2930 THIS SUBROUTINE DIVIDES A DOUBLE PRECISION & AND RETURNS THE RESULT 


2931 >TO THE CALLER ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 





DZ2TUD-D TMOZ DRIVE Ng TIMER 


DZTUDD. P11 


005052 
005054 
005060 
005064 
005070 
005074 
005076 
005100 
005102 
005104 
005106 
005110 
005112 
005114 
005116 
005120 
005122 
005124 
005126 
005132 
005136 
005140 
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005046 
012746 
016601 
016600 
016602 
005402 
000241 
000405 
006100 
010003 
060203 
103001 
010300 
006101 
005316 
001370 
005726 
005726 
010166 
010066 
012616 
000207 
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000021 
000012 
000010 
000006 


000006 
000004 
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DIVIDE SUBROUTINE 


*CALL: MOV LEAST SIGNI 


FICANT HALF DIVIDEND. -(SP) 
MOV #MOST os 


IC 
— HALF DIVIDEND, -(SP) 


; MOV #OIVISOR, -¢ 

; JSR PC. DIVIDE 
+RETURN 

; (SP)=REMAINDER ON STACK 
; 2(SP )=QUOTIENT 


;NOTE: THIS SUBROUTINE DESTROYS PREVIOUS-CONTENTS OF RO,R1-R2 & R3. 
DIVIDE: CLR - (SP) + SAVE LOC FOR SIGNS 


MOV #17. ,-CSP) +SET ITERATION COUNT 
MOV 12(SP),R1 +GET LSH DIVIDEND 
MOV 10(SP),R0 +GET MSH DIVIDEND 
MOV 6(SP),RZ GET DIVISOR 
NEG R2 +NEGATE DIVISOR 
CLC +CLEAR 'C' BIT IN PSW 
BR 2$ 
1$: ROL RO ROTATE MSH DIVIDEND 
MOV RO. R3 > SAVE IN R3 
ADD R2,R3 ; SUBTRACT DIVISOR FROM MSH DIVIDEND 
BCC 2$ ;BRANCH IF DIVIDEND > DIVISOR 
MOV R3.RO + SAVE REMAINDER IN RO 
2$ ROL RI ROTATE LSH DIVIDEND 
DEC (SP) >DECREMENT ITERATION COUNT 
BNE 1$ 
TST (SP )+ POP ITERATION COUNTER 
TST (SP )+ POP SIGN CORRECTION 
MOV R1,6(SP) ;PUSH REMAINDER ON STACK 
MoV . RO. 4CSP) PUSH QUOTIENT ONTO STACK 
Mov (SP)+, (SP) 
RTS PC 


SEQ 0088 
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005142 
005150 
005156 
005160 
005164 
005166 


005170 
005176 
005204 
005212 
005214 
005216 


005220 
005226 
005234 
005236 
005242 
005246 
005254 


005256 


005356 
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113765 
032765 
001003 
004737 
000262 
000207 


113765 
113765 
032765 
001001 
C00262 
000207 


012765 
113765 
005046 
113716 
012665 
052765 
000207 


005027 
000000 
405765 
100406 
005237 
001372 
000004 
000425 


000262 
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001006 
040000 


005220 


001006 
001007 
002000 


000040 
001006 


001007 


99032 
0U0300 


000012 
005260 
014423 
002000 
013454 
014002 
005362 
005444 
005256 


040000 


000010 
000026 


000010 
000032 
000026 


000010 
000010 


000032 


000012 


000012 
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DRIVE SUBROUTINES 


.SBTTL ORIVE SUBROUTINES 
; SUBROUTINE TO wir (F ORIVE IS AVAILABLE 


‘CALL: MOVB OR + th UN 
JSR C.DRVA 
; RETURN: ‘C' BIT "ET IF NOT AVAILABLE 
DRVAVA: MOVB O#ORVNUM, CS2(R5) +LOAD DRIVE # 
BIT TAP, OT(RS) + CHECK IF TAPE UNIT 
BNE 1$ 
JSR PC. RHINIT 
SEV +SET ‘'V' TO IND NOT AVAIL 
i$: RTS PC + RETURN 


+ SUBROUTINE TO CHECK IF TU16 SLAVE IS kee i FOR TEST 


*CALL: MOVB DRIVE #. d#ORVNUM 
; MOVB SLAVE #. d#SLVNUM 
; JSR PC, SLVAVA 
SLVAVA: O#ORVNUM, CS2Z2(R5) 
MOVB O#SLVNUM, TC(RS) 
BIT #SPR,DTC(RS) 


BNE 1$ 
SEV 
1$: RTS PC 


+ SUBROUTINE TO 
CALL: JSR PC, RHINIT 


RHINIT: MOV #40, CS2(R5) 
MOVB O#ORVNUM, CS2(R5) 
CLR -(SP) 
MOVB O*SLVNUM, (SP) 
MOV (SP)+, TC(RS) 
BIS #NORM1I1, TCCRS) 
RTS PC 
+ SUBROUTINE TO WAIT - DRIVE READY (DRY) 
WAITRDY: CLR (PC)+ 
WAITTIM:. WORD O 
1$: TSTB DSiRS> 
BMI 2$ 
INC WAITTIM 
BNE 1$ 
TYPE. E. TIMEXP 
BR 995 
23: BIT #EOT, OS(RS) 
BEQ 3$ 
TYPE. M. NAM 
TYPE. M. EOT 
JSR PC,. REWIND 
BVS 995 
JSR PC, WRITE 
INC (R5) 
JSR PC, WAITROY 
BR 995 
3S: BIT #ERR, DS(RS) 
BEQ 100% 
995: SEV 


INITIALIZE RH CONTROLLER | 


S DRIVE # VIA DRVNUM 
;PASS SLAVE # VIA SLVNUM 
CALL SUBROUTINE 
+LOAD DRIVE & 

AND SLAVE & 
BRANCH IF SLAVE PRESENT 


;SET 'V' TO INDICATE NO SLAVE 


;LOAD SLAVE # INTO TC REG 


;CLEAR WAIT TIMER 
;WAIT FOR READY TO SET 


> INCREMENT WAIT TIMER 

>BRANCH IF TIME HAS NOT EXPIRED 
TYPE ‘TIME EXPIRED WAITING FOR RDY' 
+ TAKE ERROR EXIT 

CHECK FOR END OF TAPE 

BRANCH IF NO EOT 


> TYPE ‘END OF TAPE’ 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
*WRITE A RECORD 

+SET ‘GO’ BIT 

;WAIT FOR READY 

; TAKE ERROR EXIT 

+ CHECK ERROR EXIT 


SEQ 0089 


NM 7? 
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DZTUDD. P11 27-OCT-77 13:17 DRIVE SUBROUTINES SEQ 0090 
ast 005360 000207 100$: RTS rC 
3022 +SUBROUTINE TO REWIND A UNIT a COMBINATION) 
3023 *CALL = MOVB DRIVE #. d#ORVNU 
3024 ; MOVB SLAVE 4, 497 UNUM 
3025 ; JSR PC,. REWIND 
3026 ~ ; SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’. & ‘V' SET IF 
524 7AN ERROR OCCURS. 
3029 005362 004737 005220 . REWIND: JSR PC, RHINIT + INITIALIZE CONTROLLER 
3030 005366 004337 005600 JSR R3, THCMD +GO TO TM COMMAND SUBROUTINE 
3031 005372 000000 .WORD OQ +BUS ADDRESS (NOT USED) 
3032 005374 o0C000 .WORD O +WORD COUNT (NOT USED) 
3033 005376 000000 .WORD QO FRAME COUNT (NOT USED) 
3034 005400 000006 .WORD RWD REWIND COMMAND 
3035 005402 005215 INC (R5) ‘SET ‘GO' BIT 
3036 005404 032765 000002 000012 1%: BIT #BOT, OS(RS) +BRANCH IF ‘BOT’ SET 
3037 005412 001005 BNE 2$ 
3038 005414 032765 O40000 000012 BIT RERR, DS(RS) CHECK ERROR BIT 
3039 005422 001006 BNE 99% BRANCH IF ERROR BIT SET 
ae 005424 000767 BR 1% 
1 
3042 005426 032765 020000 000012 2%: BIT #PIP,DS(RS) +WAIT FOR TAPE MOTION TO STOP 
3043 005434 001374 BNE 23 
3044 005436 000401 BR 100% 
3045 005440 000262 995: SEV 
—s 005442 000207 100$: RTS PC 
3048 SUBROUTINE TO WRITE 256. WORD RECORD 
oad *CALL: JSR PC, WRITE 
3051 O05444 004337 005600 WRITE: JSR R3, THCMD +GO TO TM COMMAND SUBROUTINE 
3052 005450 016030 .WORD WTBUF ;BUS ADORESS 
3053 005452 177600 .WORD WROCNT >WORD COUNT 
3054 005454 177400 .WORD = FRMCNT ;FRAME COUNT 
3055 005456 000060 .WORD WFHD ;WRITE FORWARD COMMAND 
— oos4e0 0900207 RTS PC 
3058 SUBROUTINE TO READ A 256. WORD RECORD. 
ao *CALL: JSR PC, READ 
306 
3061 005462 004337 005600 READ: JSR R3, dS TNCND 
3062 005466 016030 .WORD RDBUF ADDRESS OF READ BUFFER 
3063 005470 177600 . WORD WROCNT +2°S COMPLEMENT OF WORD COUNT 
3064 005472 177400 WORD = FRMCNT +>2°S COMPLEMENT OF FRAME COUNT 
3065 005474 000070 .WORD RDFWO READ FORWARD COMMAND 
os 005476 000207 RTS Pc 
3068 ; SUBROUTINE TO INITIATE READ REVERSE COMMAND 
3069 -CALL: JSR PC, REVRD 
3070 ; 
3071 005500 004337 905600 REVRD: JSR R3, THCMD 
* 3072 005504 016430 .WORD ROBUF +256. ;ADDRESS OF READ REVERSE BUFFER 
3073 005506 177600 .WORD WROCNT +2°S COMPLEMENT OF WORD COUNT 
3074 005510 177400 . WORD FRMCNT >2°S COMPLEMENT OF FRAME COUNT 


3075 005512 000076 .WORD RDREV READ REVERSE COMMAND 
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uUDD. 


Pil 


005514 


005516 
005524 
005530 
005534 


005536 


005576 


005600 
005604 
005610 
005614 
005616 


005620 


005706 


000207 


012765 
012715 
004737 
000207 


004737 


000207 


012365 
012365 
012365 
012315 
000203 


016503 
012701 
000303 
006003 
006003 
006003 
006003 
042703 
052703 
110321 
016503 
000303 
042703 
052703 
$1032) 
016503 
006003 
006003 
006003 
006003 


177777 
000031 
005256 


005444 
005256 
177777 
000033 
005256 


004764 


000004 
000002 
000006 


000030 
001146 


177760 
000260 


000030 


177760 
000260 


000030 


000006 


000006 
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RTS PC 

;SUBROUTINE TO SPACE FORWARD 1 RECORD 

FUDSPC: MOV #-1,FCCR5) +LOAD RECORC COUNT 
MOV #SPCFWD+1, (RS) +LOAD COMMAND 
JSR PC, WAITRDY ;WAIT FOR READY 
RTS PC + RETURN 

; SUBROUTINE TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 

WRT. BK: JSR PC, WRITE WRITE THE RECORD 
INC (R5) ;SET ‘GO’ BIT 
JSR PC, WAITROY 
BVS 2$ 
MOV #-1,FC(RS) LOAD RECORD COUNT 
MOV #SPCREV+1, (RS) LOAD COMMAND 
JSR PC, WAI TROY 
BVS 2$ 

1$: JSR PC, DELAY ;WAIT FOR TAPE MOTION TO STOP 

2: RTS PC 

; SUBROUTINE TO LOAD A COMMAND 

*CALL: JSR R3,. THCMD 

; .WORD BUS ADDRESS 

; .WORD WORD COUNT (2'S COMPLEMENT) 

; .WORD FRAME COUNT (2'S COMPLEMENT) 

.WORD COMMAND 

TMCMD: MOV (R3)+, BACRS) +LOAD BUS ADDRESS 
MOV (R3)+,WC(RS) *+LOAD WORD COUNT 
MoV (R3)+,FC(RS) *LOAD FRAME COUNT 
MOV (R3)+, (RS) *+LORD COMMAND 
RTS R3 ;RETURN 


;SUBROUTINE TO PRINT TU16 SERIAL NUMBER 
> JSR PC. SNPT ; 


SNPT: MOV SN(R5),RZ 
MoV > piel 


SWAB R 

ROR R3 

ROR R3 

ROR R3 

ROR R3 *GET FIRST DIGIT 


BIC #177760, R3 
BIS #260, R3 
MOVB R3, (R1D+ 
MoV SN(R5).R3 
SWAB R3 

BIC #177760.R3 
BIS #260, R3 
MOVB R3.(R1)+ 
MOV aa 


7FILL FIRST DIGIT 


GET SECOND DIGIT 


ROR 

ROR R3 
ROR R3 
ROR R3 


Se eg ee 


SEQ 0091 
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005710 


005746 


005750 


005754 
005760 
005764 
005772 
006000 
006002 
006004 
006006 
006014 


006124 
006130 
006 34 
006140 
006146 


006152 
006154 
006156 
006160 
006164 
006166 
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042703 


000207 


012706 


013746 
013746 
012737 
022777 
001402 
000404 
022626 
012737 
012637 
012637 
022737 
001002 
004737 
105037 
105037 
105037 
105037 
105037 
012737 
012737 
005037 
023737 
001415 
000004 
000004 
000004 
004737 
004737 
013737 
013705 


000261 
005715 
103003 
000004 
000671 
012737 
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177760 
000260 


000030 
177760 
000260 


001146 


000600 


000006 
000004 
006004 
177777 


000176 
000004 
000006 
000176 


002032 
001126 
001123 
001124 
001125 
001132 
000006 
000002 
001266 
000042 


001376 
013454 
013522 
003476 
003262 
001120 
001012 


014041 
003652 


000004 
173002 


001002 


001002 


000004 


000006 
000046 


001012 


000004 
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BIC #177760, R3 
#260, R3 
MOVB R3, (R1ID+ 


MOV SN(R5),R3 
BIC #177760,R3_ 


GET THIRD DIGIT 


MOVB R3, (R1)+ +GET FOURTH DIGIT 
CLRB (R1) 
TYPE, ODIGITS +; TYPE SERIAL NUMBER 
RTS PC + RETURN 
.SBTTL PROGRAM INITIALIZATION 
INIT: MOV #STKPTR, SP + SET STACK PTR 
SUSWR: MOV d#6, - (SP) SAVE VECTORS 
MoV O84, - (SP) 
MOV #614, d#4 +SET UP FOR TIMEOUT 
CMP #-1, OSUR ; REFERENCE HARDWARE SWITCH REGISTER 
BEQ 60% 
BR 62% 
615: CMP (SP)+, (SP)+ ; ADJUST STACK 
60S: MOV #SWREG, SWR ;POINT TO SOFTWARE SWITCH REG 
623: MOV (SP) +, 084 RESTORE VECTORS 
MOV (SP) +, d#6 
CMP #SWREG, O#SHR 
BNE 64S 


JSR PC, CNTLU 
64S: CLRB O#PRGFLG 
CLRB o# | TCNT 


+ CLEAR PROGRAM FLAG 
;CLEAR ITERATION COUNT 


CLRB a# TSTNUM +SET TEST # O 
CLRB OFERFLG +CLEAR ERROR FLAG 
_— CLRB ASFLG *CLEAR ASK FLAG 
MOV #ERRVEC+2, OHERRVEC 
MOV ARTI, ORERRVEC +2 *>CHECK IF ‘LP’ IS AVAILABLE 
23: CLR O# | NBUF 
CMP O#42, DE46 -ACT11 AUTO MODE? 
BEQ 5% YES. NO TITLE, DEFAULT ADDR. 
TYPE, CRLF 
TYPE, M. NAM > TYPE TITLE 
TYPE, |. REG ;ASK USER TO TYPE CONT BASE 
JSR PC,. |NPUT GET USER INPUT 
4S: JSR PC, CNVTAO +CONVERT ASCII TO OCTAL 
MOV dF OC TALO. d# THBASE SET NEW ADDRESS 
5S: MoV d# TMBASE. RS 
;ROUTINE TO CHECK IF CONTROLLER (RH11) 1S AVAILAABLE 
SEC *SET 'C* IN PSW 
TST (R5) BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
TYPE. E. NCON 
BR INIT 
6$: MOV RERRTRP, QRERRVEC ;SET ERROR TRAP VECTOR 


ADRS 





DZTUD-D TNOZ DRIVE 50 ee 


DZTUDD. P11 


006174 
006200 
006204 
006210 
006212 
006214 
006216 
006224 
006226 
006232 
006236 
006242 
006246 
006250 
006254 
006260 
006264 
006270 
006272 
006274 


006276 
006302 
006304 
006310 
006312 
006314 
006316 
006322 
006330 
006332 


006334 
006336 
006342 


0064 26 
0064 32 


27-OCT-77 


105037 
012701 
012700 
005021 
005300 
001375 
023737 
001411 
000004 
004737 
012700 
122710 
001013 
110637 
012701 
012700 
012721 
005300 
001374 
000417 


122710 
001414 
121027 
001001 
105720 
112001 
042701 
112761 
000240 
000761 


005000 
105760 
001005 
005200 
122700 
001371 
000421 
110037 
004737 
102366 


001660 


001125 
001156 
000004 


000042 


013567 
003476 
001266 
000101 


001126 
001156 


000004 
177777 


000015 
000054 


177770 
177777 


001156 
000010 
001006 
005142 
014106 
001134 
014140 
001125 
001156 
001125 


001126 


000046 


001156 


014140 


“MACY11 30(1046) 
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PROGRAM INITIALIZATION 


18-4 


ROUTINE TO GET TMOZ DRIVES USER DESIRES TO TEST 
CLRB O#ERFLG 


DRIVES: 


+CLEAR ERROR FLAG 

;MARK ALL DRIVES AS NOT TO 

+BE TESTED. A ‘O' INDICATES 
a eres DRIVE 1S NOT TO BE 


iT 


+ACTI1 AUTO MODE? 
+ YES. TEST ALL ORIVES. 


+GET USER INPUT 

AN ‘A’ SPECIFIES ALL 

;DRIVES TO BE TESTED 

;SET FLAG TO IND ALL DRIVES 
+MARK ALL ORIVES TO BE TESTED 
+A *-1' INDICATES THAT A DRIVE 
+ 1S TO BE TESTED 

;GO CHECK DRIVE AVAILABILITY 


DRIVE SELECTED TO BE TESTED 


*CHECK IF ‘COMMA’ 
+ STEP PTR PAST ‘COMMA’ 


>A 07-1 INDICATES THAT THE 
;DRIVE 1S NOT/IS TO BE TESTED 


CHECK IF AVAILABLE 
*'V' BIT SET INDICATES NOT AVAIL 


>SET DRIVE # IN MESSAGE 
SET ‘ERROR’ FLAG 

*MARK ORIVE UNAVAILABLE 
CHECK NEXT DRIVE 

GO GET SLAVES IF NO ERROR 


ASK USER TO RETYPE DRIVES IF 


#ORVTBL.R1 
MOV #4,R0 
1$: CLR (R1)+ 
DEC RO 
BNE 1$ 
CMP O42, 0846 
BEQ 100% 
TYPE, |. DRVS 
JSR PC,. INPUT 
MOV # INBUF, RO 
CMPB #'A, (RO) 
BNE 3$ 
1005: MOVB SP, PRGFLG 
MoV RORVTBL,R1 
MOV #4,R0 
23: MoV #-1, (R1)+ 
DEC RO 
BNE 2$ 
BR CHKORV 
GET USER SELECTED DRIVES AND MARK EACH 
3$: CMPB #CR, (RO) 
BEQ CHKORV 
CMPB (RO), #', 
BNE 4$ 
TSTB (RO)+ 
4S: MOVB (RO)+,R1 
BIC #177770, R1 
MOVB #-1,DRVTBL(R1) 
NOP 
BR 3$ 
;ASCERTAIN THAT DRIVES (TMOZ'S) SPECIFIED ARE AVAILABLE 
CHKORV: CLR RO ; 
1$: TSTB DRVTBL (RO) 
BNE 3$ 
2S: INC RO 
CMPB #8.,R0 
BNE 1$ 
BR 4$ 
35: MOVB RO, d#ORVNUN 
JSR PC, d#DRVAVA 
vc 2$ 
TYPE. E. NORV 
MOVB DIGTAB(RO), d#E. NAVA 
TYPE. E. NAVA 
MOVB SP, d#ERFLG 
CLRB DRVTBL (RO) 
BR 2$ = 
4S: TSTB O#ERFLG 
BEQ SLAVES 
TSTB ernGris -“" 
BEQ DRIVES 


>"ALL' NOT SPECIFIED 


SEQ 0093 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
D2TU 11 17 


UDD. P 





0064 34 
006440 
006444 
006450 
006452 


006454 _ 


006456 
006460 
006464 
006470 
006472 
006476 
006500 
006504 
006506 


006510 
006514 
006516 
006522 
006530 
006534 
006540 
006544 
006550 
006552 
006556 
006562 
006566 
006572 
006574 
006576 
006602 


006604 
006610 
006612 
006616 
006620 
006622 
006624 


006664 
006670 


27-OCT-77 


105037 


001367 
000454 


105737 
001020 
110037 
116037 
000004 
004737 
012703 
122710 
001015 
110637 
012701 
012700 
012721 
005300 
001374 
105737 
001016 


122713 
001730 
121327 
001001 
105723 
112304 
042704 
060194 
112714 
000762 


005000 
005001 
012702 
105760 
001007 
005200 
062702 
022700 
001367 


13: 


001125 
001166 
000040 


001166 
001156 


000010 


000010 


001126 


001006 
001134 
013631 
003476 
001266 
000101 


001126 
001166 


000040 
177777 


001126 


000015 


000054 


177770 
177777 


001166 
001156 


000010 
000010 


013650 


MACY11 30(1046) 
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PROGRAM INITIALIZATION 
;ROUTINE TO GET SLAVES (TU16'S) USER DESIRES TO TEST 
CLRB O#ERFLG aS 
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LEAR ‘ERROR’ FLAG 
MARK ALL SLAVES (64. ) AS NOT 
+70 BE TESTED.A O INDICATES THAT 
+A ORIVE'S SLAVE IS NOT TO BE 
+ TESTED 


+RO = DRIVE # FOR SLAVES 

+R1 POINTS TO DRIVE'S SLAVE 

+ 1F ORIVE IS TO BE TESTED 

+GO TO 4$ OTHERWISE 

+ STEP SLAVE PTR TO NEXT DRIVE'S 
+SLAVES AND INCREMENT DRIVE & 
+CHECK ALL DRIVES 

AND WHEN ALL DRIVES CHECKED 
+GO CHECK SLAVE AVAILABILITY 


+BRANCH IF USER SELECTED ALL 
+ DRIVES 

+GET DRIVE & 

;PREPARE USER ACTION MESSAGE 


;GET USER INPUT 
;SET PTR TO USER INPUT 
;BRANCH IF USER DOES NOT WANT 
;*ALL' SLAVES 

;SET ‘ALL’ INDICATOR 

;MARK ALL SLAVES FOR ALL 
;DRIVES AS TO BE TESTED 


>BRANCH IF ALL WAS SELECTED 


*GET USER SELECTED SLAVES FOR 
Iv 
; STEP PTR PAST ‘COMMA’ 


>AND MARK SELECED SLAVE 
*AS TO BE TESTED 


ata (TU16'S) SELECTED A AVAILABLE 


SLAVES: CL 
MOV #SLVTBL.R1 
MOV #32. .RO 
1$: CLR (R1)+ 
DEC RO 
BNE 1$ 
CLR RO 
MoV #SLVTBL.R1 
23: TSTB ORVTBL (RO) 
BNE 4s 
34: ADD #8.,R1 
INC RO 
CMPB #8.,R0 
BNE 23 
BR CHKSLV 
4S: TSTB O#PRGFLG 
BNE 53 
MOVB RO. ORVNUM 
MOVB DIGTABC(RO), d#1. ORV 
TYPE, |. SLVS 
JSR PC,. INPUT 
MoV #INBUF, R23 
CMPB #'A, (RO) 
BNE 7$ 
MOVB SP, d#PRGFLG 
53: MoV #SLVTBL-R1 
MOV . #32. ,-R0 
6$: MoV #-1, (R1)+ 
DEC RO 
BNE 6$ 
TSTB O#PRGFLG 
BNE CHKSLV 
75: CMPB RCR, (RI) 
BEQ 3$ 
CMPB (R3).8', 
BNE 8$ 
TSTB (R3)+ 
8$: MOVB (R3)+,R4 
BIC #177770,R4 
ADD R1,R4 
MOVB #-1, (RY) 
BR 7$ 
;ASCERTAIN THAT 
CHKSLV: CLR 
CLR R1 
MOV #SLVTBL,.R2 
1S. TSTB ORVTBL (RO) 
BNE 3$ 
23: INC RO 
ADD #8. ,R2 
CMP #8.,R0 
—— 1$ 


O WILL CONTAIN THE DRIVE # 
; AND Ri THE SLAVE & 
SET PTR TO SLAVE TABLE 
BRANCH IF DRIVE SELECTED 
+& AVAILABLE FOR TEST 
> INCREMENT DRIVE & 
*+STEP SLAVE PTR TO NEXT DRIVE'S 
SLAVES. BRANCH TO 1% IF NOT ALL 
DRIVES CHECKED OTHERWISE EXIT 


SEQ 0094 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 


006672 
006674 


006714 


006716 
006722 
006726 
006732 
0667 34 
006742 
006750 
006754 
006760 
006762 


006764 
006770 
006772 
006776 
007000 


007006 
007012 
007016 
007024 


007030 
007034 


27-OCT-77 
0004 34 


005001 
105712 
001006 
005201 
005202 
022701 
001371 
000760 


110037 
110137 
004737 
102363 
116037 
116137 
000004 
110637 
105012 
000747 


105737 
001403 
105737 
001616 
012737 


105037 
105037 
012737 
105037 


113700 
113701 


13: 17 


000010 


001006 
001007 
005170 


001134 
001134 
014122 
001125 


001125 
001126 
003652 
001006 
001007 
001166 
001127 


001006 
001007 


014130 
014140 


000004 


901010 


MACY11 30(1046) 
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34: 
4$: 


55: 


6$: 


7%: 


1005: 
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*+SET SLAVE # O 

+BRANCH IF CRIVE'S SLAVE IS SEL- 
sECTED FOR TEST 

+ INCREMENT SLAVE & 

+STEP PTR TO NEXT SLAVE 

+GO TO 4S IF ALL SLAVES NOT 

; CHECKED 

OTHERWISE GO TO 2% ABOVE 


PASS DRIVE & SLAVE # 


AND CHECK IF AVAILABLE 

,'V' BIT SET ON RETURN IND- 
; ICATES ERROR. PREPARE ERROR 
; MESSAGE 


+SET ERROR INDICATOR 
+CLEAR SLAVE TABLE ENTRY 
+GET NEXT SLAVE 

BRANCH IF NO ERROR 


*>BRANCH IF NOT ‘ALL' 
ASK USER TO RETYPE SLAVES 


;SCAN DIVE AND SLAVE TABLE FOR DRIVE/SLAVE COMBINATION TO TEST 
C 


BEGIN: 


BR 7$ 

CLR R1 

TSTB (R2) 

BNE 6$ 

INC R1 

INC R2 

CMP #8.,R1 

BNE 4$ 

BR 23 

MOVB RO. d#ORVNUM 

MOVB R1, d#SLVNUM 

JSR PC, a#SLVAVA 

BVC 53 

MOVB DIGTAB(RO), a#E. ORV 

MOVB DIGTAB(R1), a#E. NAVA 
TYPE. E. NSLV 

MOVB SP, ORERFLG 

CLRB (R2) 

BR 5% 

TSTB O#ERFLG 

BEQ 100$ 

TSTB O#PPGFLG 

BEQ SLAVES 

MOV RERRTRP, DRERRVEC 
LRB o# DRVNUN 

CLRB o# SLVNUM 

MOV #SLUTBL. d#SLUPTR 

CLRB O*UNTFND 

MOVB O# ORVNUM, RO 

MOVB O#SLVNUM, R1 


SET DRIVE AND SLAVE # 0 


+SET PTR TO SLAVE TABLE 
>CLEAR ‘UNIT FOUND’ IND. 


*GET DRIVE & 
*ANO SLAVE & 


SEQ 0095 


DZTUD-D TNOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 27-OCT-77 13:17 


3335 007040 013702 001010 
3336 007044 105760 001156 
3337 007050 001011 
3338 007052 005001 
3339 007054 062702 000010 
3340 007060 005200 
3341 007062 022700 000010 
3342 007066 001366 
3343 007070 000137 013016 


3345 007074 105712 
3346 007076 001007 
3347 007100 006202 
3348 007102 005201 
3349 007104 122701 000010 
3350 007110 001371 
3351 007112 005001 
3352 007114 000761 


3354 007116 110637 001127 
3355 007122 110037 001006 


MACY11 30(1046) 


F 
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PROGRAM INITIALIZATION 


1$: 


23: 


3$: 


4S: 


OESLVPTR, RZ 
pte 


Ri 
#8.,R2 


#8..R1 


SP, d#UNTFND 
RO. d#ORVNUM 


8 
13:42 PAGE 


20 


GET SLAVE PTR 
BRANCH IF DRIVE AVAIL TO TEST 


‘CLEAR SLAVE # 

;AND STEP PTR TO NEXT DRIVE'S 
SLAVES AND INCREMENT DRIVE # 
sEXIT TEST IF ALL DRIVES 

+; CHECKED OTHERWISE CONTINUE 

+ SCAN FOR NEXT ‘UNIT’ 


BRANCH IF SLAVE ON DRIVE IS 
;AVAILABLE THERWISE STEP 
PTR TO NEXT SLAVE < 

+ INCREMENT SLAVE # 

+UNTIL ALL SLAVES CHECKED 
+WHEN ALL SLAVES CHECKED 
SET SLAVE # 0 

AND CONTINUE SCAN 


+ INDICATE THAT A ‘UNIT’ 1S FOUND 
;SET DRIVE 3 


SEQ 0096 


DZTUD-D THOZ DRIVE hn St ig TIMER 
DZTUDD. P11 


007126 
007132 


007136 
007142 
007144 


007152 
007156 
007164 
007166 
007172 
007176 
007202 
007206 
007210 
007214 
007216 
007222 


007224 
007230 
007236 
007240 
007244 
007250 
007254 
007260 
007262 
007266 
007270 
007274 


007274 
007302 
007306 
007314 
007322 
007330 
007336 
007340 
007346 
007352 
007356 
007362 
007370 
007372 
007376 
007400 
007404 
007410 
007414 
007416 


27-OCT-77 


110137 
010237 


105737 
001054 
112737 


105037 
023737 
001417 
000004 
004737 
012703 
122713 
001406 
122713 
001350 
111337 
000424 


105037 
023737 
001416 
000004 
004737 
012703 
122713 
001405 
122713 
001356 
111337 


052737 


000137 


13: 17 


001007 
001010 


001132 
000001 


001126 
000042 


013710 
003476 
001266 
000060 


000061 
001126 
001131 
000042 
013751 
003476 
001266 
000060 
000061 
001131 
000100 
014474 
001134 
001134 
000071 
010000 
000067 
014710 
007422 
o00006 
000012 
004470 
001126 


013110 


001132 


000046 


000046 


177560 
014654 
014666 
014671 
000026 


014671 


001004 


MACY11 30(1046) 
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5S: 


6: 


75: 


TYPHDR: 


8 
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SEQ 0097 


MOVB Ri, d#SLVNUM +SET SLAVE & 
MOV RZ, DESLVPTR + SAVE SLAVE PTR 
TSTB O#ASFLG 
BNE 7$ 
MOVB #1, ASFLG 
CLRB O#PRGFLG + CLEAR PROGRAM INDICATOR 
CMP 0442, d846 s;ACTI1 AUTO MODE? 
BEQ 6$ + YES. DON'T RUN SKEW TESTS 
TYPE, |. SKEW ;ASK USER IF HE WANTS TO RUN SKEW TESTS 
JSR PC,. INPUT +GET USER INPUT 
MOV # INBUF,R3 +GET REPLY 
CMPB #'0, (R3) +BRANCH IF ‘NO’ (0) 
BEQ 6$ 
CMPB #'1, (R3) *CHECK IF ‘YES' (1) 
BNE 5% +NEITHER SO ASK AGAIN 
MOVB (R3),d#PRGFLG ;SET INDICATOR 
BR 7$ 
CLRB O4NRZFLG + CLEAR NRZ INDICATOR 
CMP #42, D846 *ACT11 AUTO MODE? 
BEQ 7$ > YES. NOT NRZ ONLY. 
TYPE, |. NRZ ASK USER IF DRIVE "NRZ' ONLY 
JSR PC,. INPUT +GET USER INPUT 
MOV # INBUF,R3 *GET REPLY 
CMPB #'O, (R3) >BRANCH IF ‘NO’ (0) 
BEQ 7$ 
CMPB #'1,(R3) *CHECK IF ‘YES (1) 
BNE 6$ >ASK AGAIN IF NEITHER 
MOVB (R3),@#NRZFLG ;SET INDICATOR 
BIS #100, d#TKS SET KEYBOARD IE BIT 
TYPE.L. HOR1 
MOVB DIGTAB(RO), d#L. ORV *>SET DRIVE # 
MOVB DIGTAB(R1), d#L. SLV >AND SLAVE # 
MOVB #'9, O#L. CHAN >GET SLAVES CHANNEL TYPE 
BIT #CH7, DT CRS) 
BEQ 1$ 
MOVB #'7, dL. CHAN *>SET 7 CHANNEL 
TYPE, L. HOR2 . 
JSR PC, SNPT GO PRINT SERIAL NUMBER 
TYPE, L. HOR3 
OV iy setae esa SET ‘SCOPE’ ADDRESS FOR FIRST TEST 
MOV RS, 
ADD #r7C,RO >RO CONTAINS ADDRESS OF FC REG 
MoV R5,R1 
ADD #O0S.R1 7R1 CONTAINS ADDRESS OF DS REG 
MOV #TIMER, RZ SET JUMP ADDRESS TO TIMER 
TSTB de PRGFLG >BRANCH IF NOT SKEW TESTS 
BEQ TSTOO1 
JMP a#SKEWTST 


H 8 
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TUDD. P11 27-OCT-77 13:17 START OF TESTS SEQ 0098 
3414 .SBTTL START OF TESTS 
3415 ‘ + TEST 001 - WRITE FROM BOT 
3416 ; THIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 
3417 ;MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
mis ;FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA. nme we — 
3420 + THIS TEST MEASURES TIME Rss. ‘GO'=1 TO ‘'ACCL*=0. 
3421 007422 112737 000001 001124 TSTOO1: MOVB #1, d¢TSTNUM +SET TEST # 
3422 007430 012702 007454 MOV #1$,R2 ;SET RETURN PC FROM TIMER 
3423 007434 004737 005362 JSR PC,. REWIND ;REWIND SLAVE 
(1) 007440 102420 ByVS 99% ;BRANCH IF ERROR ON REWIND 
3424 007442 004737 OO0S444 JSR PC, WRITE ;GO SETUP WRITE COMMAND 
3425 007446 004737 004400 JSR PC, TIMON ; TURN TIMER ON 
ae 007452 005215 INC (R5) ;SET ‘GO’ BIT 
3427 
3428 007454 005765 000032 1%: TST TCCRS) ;BRANCH WHEN ‘ACCL‘'=0 
3429 007460 100002 BPL 23 
nae 007462 000163 004470 JMP TIMER (F3) ;GO TO TIMER & RETURN VIA R2 
1 
3432 007466 004737 005256 23: JSR PC,WAITRDY ;WAiT FOR COMMAND TO FINISH 
3433 007472 102403 BvS 995 ;BRANCH IF ERROR 
3434 007474 004737 004526 JSR PE, TIMOK ;GO CHECK TIME 
3436 007500 000401 BR 100% 
3436 007502 104400 995: HLT 
oo 007504 104000 100$: SCOPE 
4 
3439 > TEST 002 - WRITE START 
3440 ; THIS TST MEASURES TIME FROM ‘'GO'=1 TO 'ACCL'=0 
3441 007506 112737 000002 001124 TSTOO2: MOVB #2, d#TSTNUM >SET TEST # 2 
3442 007514 004737 O05444 JSR PC, WRITE > INITIATE WRITE COMMAND 
3443 007520 012702 007532 MOV #19,R2 >SET RETURN PC FROM TIMER 
3444 007524 004737 004400 JSR PC, TIMON - 
3445 007530 005215 INC (R5) :SET ‘GO’ BIT 
3446 
3447 007532 005765 000032 1S: TST TCCRS) ;BRANCH WHEN ‘ACCL‘=0 
3448 007536 100002 BPL 2$ 
3449 007540 000163 004470 JMP TIMER(RI? ;GO TO TIMER & RETURN VIA RZ 
3450 Mow, 
3451 007544 004737 005256 23: JSR ~ PC, WAITROY >WAIT FOR READY 
3452 007550 102403 BVS 995 ;BRANCH IF =RROR 
3453 007552 004737 004526 JSR PC, TIMOK ;GO CHECK TIME RECORDED 
3454 007556 000401 BR 10C$ ;EXIT VIA SCOPE 
3455 
3456 007560 104400 995: HLT ;REPORT EPROR sit 
3457 007562 104000 1008: SCOPE 
3458 
3459 ; TEST O003- WRITE SHUTDOWN 
3460 ; THIS TEST MEASURES TIME FROM ‘FC REG'=0 TO ‘SWDN'=1. 
3461 007564 112737 000003 001124 TSTO03: MOVB #3, 08TSTNUM SET TEST#3 
3462 007572 004737 005444 JSR PC, WRITE > INITIATE WRITE COMMAND 
3463 007576 005215 INC (RS) ;SET ‘GO' BIT 
3464 
3465 007600 005710 1%: TST (RO) ; BRANCH WHEN WRITING FINISHED 
3466 007602 001404 BEQ 2$ 
3467 007604 032711. 040000 BIT #ERR, (R1) ~ ;MONITOR ERROR BIT 
3468 007610 001017 BNE 995 






1 8 
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DZ2TUDD. P11 27-OCT-77 13:17 START OF TESTS 





SEQ 0099 


3469 007612 000772 eR 1$ 

3470 
3471 007614 25: 

(1) 007614 004737 O04400 JSR PC, TIMON ; TURN TIMER ON 

3472 007620 010702 MOV PC, R2 ;LOAD RETURN PC FROM TIMER 
3473 007622 032711 000020 35: BIT #SDWN, (R1) ;BRANCH WHEN DS <SDWN> SETS 
3474 007626 001002 BNE 4§ 

3475 007630 000163 004470 JMP TIMER(R3) ~ ;G0 TO TIMER & RETURN VIA RZ 
3477 007634 004737 005256 US: JSR PC, WAI TROY ;WAIT FOR READY 

3478 007640 102403 BS 995 

3479 Q07642 004737 004526 JSR PC, TIMOK ;GO CHECK TIME RECORDED 
3480 007646 O0C4O1 BR 100$ 

3481 007650 104400 995: HLT ; REPORT ERROR 

3482 007652 104000 100$: SCOPE 

u83 

3484 ; TEST OO4 - WRITE SETTLEDOWN 

3485 ; THIS TEST MEASURES TIME FROM ‘SWON'=1 TO ‘SWON'=0. 

3486 007654 112737 OOOCOY 00:124 TSTOO4: MOVB #4, a8TSTNUM 

3487 007662 004737 005444 JSR PC, WRITE 

3488 007666 005215 INC (RS) ;SET 'GO' BIT 

4 
3490 007670 005710 15: TST (RO) ; BRANCH WHEN WRITING FINISHED 
3491 007672 001404 BEQ 25 

3492 007674 032711 O4ODND BIT HERP, (RI? CHECK ERROR BIT 

3493 007700 001026 BNE 995 

3494 007702 000772 BR 18 

4 
3496 007704 032711 000020 2s: BIT #SDWN. (R1) ;WAIT FOR ASSERTION OF ‘SDWN’ 
3497. 007710 001004 BNE 38 
3498 007712 032711 oO4OD00 BIT BERR, (R1) ;MONITOR ERROR BIT 

3499 007716 001017 BNE 995 
3500 007720 000771 BR 2$ 
3501 
3502 007722 38: 

(1) 007722 004737 o04400 JSR PC, TIMON ; TURN TIMER ON 

3503 007726 010702 MoV PC, R2 ;SET RETURN PC FROM TIMER 
3504 007730 022711 000020 BIT #SDWN. (R1) ;BRANCH WHEN SHON CLEARS 
3505 007734 001402 BEG 54 
3506 007736 000163 004470 JMP TIMER(P3) :GO TO TIMER & RETURN VIA RZ 
3507 
3508 007742 004737 005256 5S. JSR PC, WAITRDY :WAIT FOR READY 
3509 007746 102493 BYS gag 
3510 007750 004737 004526 JSR PC. TIMOK 
3511 007754 000401 BR 100% 

1 
3513 007756 104400 , 99§: HLT 
3514 007760 104000 1008: SCOPE 
3515 
3516 ; TEST 005 - READ FROM BOT 
3517 THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘ACCL'=0 
3518 007762 112737 000005 001124 TSTOOS: MOVB #5,as#TSTNUM ;SET TEST #5 
3519 007770 004737 005362 JSR PC,. REWIND ;REWIND SLAVE 

(1) 007774 102422 BYS 995 ;BRANCH IF ERROR ON REWIND 
3520 007776 004737 005462 JSR PC. READ 


3521 010002 012702 010014 ~ MOV #19,R2 SET RETURN PC FROM TIMER 
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3531 


010006 
010012 


010014 
010020 
010022 


010026 
010032 
010034 


3532 010040 


010042 
010044 


010046 
010054 
010060 
010062 
010066 
010072 
010076 


010100 
010104 
010106 


010112 
010116 
010120 
010124 


010126 
010130 


010132 
010140 
010244 
010146 
010152 


010154 


010170 


010172 
010172 
010176 
010200 
010204 
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004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
004737 
102422 
004737 
012702 
004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
004737 
102430 
004737 
005215 


022710 
001404 
032711 
001017 
000771 


004737 
016702 
032711 
001002 


004400 


000032 
004470 
005256 
004526 


00C006 
005536 


005462 


010100 
004400 


000032 


004470 - 


005256 
004526 


000007 
005536 


005462 


000400 
040000 


004400 
000020 


001124 


001124 


MACY11 30(1046) 
START OF TESTS 


1$: TST 


23: JSR 


998: HLT 
100$: SCOPE 


J 
27-OCT-77 
PC, TIMON 
(R5) 
TCCRS) 
2$ 
TIMER (RS) 


PC, WAITROY 
99% 

PC, TIMOK 
100% 


+ TEST 006 - READ START 


+ THIS TEST MEASURES TIME FROM ‘GO'=1 TO 


TSTOOe: MOVB 


238: JSR 


995: HLT 
100$: SCOPE 


#6, d#TSTNUM 
PC, WRT. BK 


TCCERS) 

2$ 
TIMER(R) 
PC, WAITRDY 


39g 
PC, TIMOK 


1008 


+ TEST 007 - READ SHUTDOWN 
; THIS TEST MEASURES TIME FROM ‘FC REG'=FRAME sy "SWDN' =1. 


TSTOO?: MOVB 


#7, 08 TSTNUM 
PC, WRT. BK 


#-FRMCNT, (RO) 
23 

#ERR, (R1) 

99% 

1% 


PC. TIMON 
PC,R2 
#SOWN, (R1) 
34 


8 
13: 42 


24-3 
SEQ 0100 


+ TURN TIMER ON 

+SET 'GO' BIT 

BRANCH WHEN ‘ACCL’ RESETS 
+GO TO TIMER & RETURN VIA RZ 


;WAIT FOR READY 
BRANCH IF ERROR 
CHECK RECORDED TIME 


"ACCL'=0 
SET TEST #6 
;WRITE A RECORD & BACK SPACE 


;SET RETURN PC FROM TIMER 
: TURN TIMER ON 
[SET 'GO' BIT 


;BRANCH WHEN ‘ACCL' RESETS 
+GO TO TIMER & RETURN VIA R2 


; 


T 
/WRITE A RECORD & BACK SPACE 
BRANCH IF ERROR 


SET 'GO' BIT 


*WAIT FOR FRAME COUNT TO 
72 # OF FRAMES WRITTEN 
;MONITOR ERROR BIT 


; TURN TIMER ON 
SET RETURN PC FROM TIMER 
BRANCH WHEN SOWN SETS 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
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010206 


010212 
010216 
010220 
010224 


010226 
010230 


010232 
010240 
010244 
010250 
010252 
010256 


010260 
010262 
010264 
010270 
010272 


010274 
010300 
010302 
010306 
010310 


010312 
010312 
010316 
010324 
010326 


010332 
010336 
010340 
010344 


010346 
010350 


010352 
010360 
010364 
010370 
010372 
010376 
010400 
010404 
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000163 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
012702 
004737 
102436 
004737 
005215 


105711 
100404 
032711 
001026 
000772 


032711 
001004 
032711 
001017 
000771 


004737 
032765 
001402 
000163 


004737 
102403 
004737 
000401 


104490 
104000 


112737 
012702 
004737 
005215 
004737 
102422 
004737 
004737 


004470 
005256 
004526 


000010 
010316 
005536 


005462 


040000 


000020 
040000 


004400 
000020 


004470 
005256 
004526 


000011 
010416 
005444 


005256 


004764 
005500 


001124 


000012 


001124 


K 8 
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START OF TESTS 


JMP TIMER(R3) 
35: JSR PC, WAITRDY 

BVS 99% 

JSR PC, TIMOK 

BR 100% 


995: HLT 
100$: SCOPE 


+ TEST 010 - READ SETTLEDOWN 


+GO TO TIMER & RETURN VIA R2 


;REPORT ERROR 


+ THIS TEST MEASURES TIME FROM ‘SWON'=1 TO 'SWDN'=0 


TSTO10: MOVB #10, d#TSTNUM 
MoV #4S, RZ 
JSR PC, WRT. BK 
BVS 995 
JSR PC, READ 
INC (R5) 

1$: TSTB (R1) 
BMI % 
BIT #ERR, (R1) 
BNE 995 
BR 1% 

23: BIT #SDWN, (R1) 
BNE 3$ 
BIT RERR, (R1) 
BNE 995 
BR 2$ 

3: 
JSR PC, TIMON 

4S: BIT #SOWN, DS(R5) 
BEQ 5% 

JMP TIMER(R3) 
5S: JSR PC, WAITRDY 
BVS 995 

JSR PC, TIMOK 
BR 100% 
995: HLT 
1008: SCOPE 


; TEST 011-READ REVERSE START 
> THIS TEST MEASURES TIME FROM ‘GO'=1 


TSTO11: MOVB #11. d#TSTNUM 
MoV #15,R2 
JSR PC, WRITE 
INC (R5) 
JSR PC, WAI TROY 
BYS 99% 
JSR PC, DELAY 
JSR PC, REVRD 


*SET TEST.#10 

+ SET RETURN PC FROM TIMER 
;WRITE A RECORD & BACK SPACE 
+SET 'GO' BIT 

;WAIT FOR READY 


BRANCH WHEN SET 
CHECK ERROR BIT 


;WAIT FOR ASSERTION OF ‘SDWN' 
;MONITOR ERROR BIT 


> TURN TIMER ON 
>WAIT FOR NEGATION OF SDWN 


;GO TO TIMER & RETURN VIA R2 


"ACCL'=0 


>SET RETURN PC FROM TIMER 
*WRITE A RECORD 
*SET ‘GO’ BIT 


;WAIT FOR TAPE MOTION TO STOP 


SEQ 0101 
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3632 010410 004737 004400 JSR PC, TIMON + TURN TIMER ON 
ey 010414 005215 INC (R5) +SET ‘GO’ BIT 
3635 010416 005765 000032 1$: TST TCCRS) BRANCH WHEN ‘ACCL* = 0 
3636 010422 100002 BPL 2$ 
oe 010424 000163 004470 JMP TIMER (R3) +GO TO TIMER & RETURN VIA R2 
3639 010430 004737 005256 2: JSR PC, WAITRDY 
3640 010434 102403 BVS 99% ;BRANCH IF ERROR 
3641 010436 004737 004526 JSR PC, TIMOK 
oe 010442 000401 BR 100% 
3644 010444 104400 995: HLT 
oar 010446 104000 100S: SCOPE 
3647 + TEST 012-READ REVERSE SHUTDOWN 
3648 ; THIS TEST MEASURES TIME FROM ‘FC REG’ = FRAME COUNT TO ‘SOWN'=1. 
3649 010450 112737 000012 001124 TSTO12: MOVB #12, d# TSTNUM 
3650 010456 012702 010526 MOV #35. R2 + SET RETURN PC FROM TIMER 
3651 010462 004737 OO05444 JSR PC, WRITE sWRITE A RECORD 
3652 010466 005215 INC (R5) SET 'GO' BIT 

3653 010470 004737 005256 JSR PC, WAITRDY 
3654 010474 102427 BVS 99% 
3655 010476 004737 005500 JSR PC.REVRD 
ate: 010502 005215 INC (R5) SET 'GO' BIT 

6 
3658 010504 022710 000400 1$: CMP #-FRMCNT, (RO) BRANCH WHEN FRAME COUNT 
3659 010510 001404 BEQ 2$ ;= # OF RECORD WRITTEN 
3660 010512 032711 040000 BIT #ERR, (R1) ;MONITOR ERROR BIT IN ‘DS' REG 
3661 010516 001016 BNE 99% 
3662 010520 000771 BR 1$ 
3663 
3664 010522 23: 

(1) 010522 004737 004400 JSR PC. TIMON ; TURN TIMER ON 
3665 010526 032711 000020 3%: BIT #SDWN, (R1) *BRANCH WHEN SOWN SETS 
3666 010532 001002 BNE 4S 
3667 010534 000163 004470 JMP TIMER(R3) >GO TO TIMER & RETURN VIA R2 
3668 
3669 010540 004737 005256 4S: JSR PC, WAITRDY -WAIT FOR READY 
3670 010544 102403 BVS 995 
3671 010546 004737 004526 JSR PC, TIMOK 
3672 010552 000401 BR 100% 
3673 
3674 010554 104400 995: HLT 
eth 010556 104000 100$: SCOPE 
3677 + TEST 013-READ REVERSE SETTLEDOWN 
3678 ; THIS TEST MEASURES TIME FROM ‘SOWN'=1 TO ‘SOWN'=0 
3679 010560 112737 000013 001124 TSTO13: MOVB #13. d#TSTNUM 
3680 010566 012702 010652 MoV #45,R2 >SET RETURN PC FROM TIMER 
3681 010572 004737 OO5444 JSR PC, WRITE *WRITE A RECORD 
3682 010576 005215 INC (R5) -SET 'GO' BIT 
3683 010600 004737 005256 JSR PC, WAITRDY 
3684 010604 102435 BVS 998 
3685 010606 004737 005500 JSR PC, REVRD 


3686 010612 005215 INC (R5) SET ‘GO’ BIT 
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uDD. 


Pil 


010614 
010616 
010620 
010624 
010626 


010630 
010634 
010636 
010642 
010644 


010646 
010646 
010652 
010656 
010660 


010664 
010670 
010672 
010676 


010700 
010702 


010704 
010704 
010710 
010712 
010714 
010716 
010720 


010720 
010726 
010732 
010736 
010740 
010744 


010746 
010752 
010756 


010760 
010764 
010766 


010772 
010776 
011000 


105711 


000772 


032711 
001004 
032711 
001016 
000771 


004737 
032711 
001402 
000163 


004737 
102403 
004737 
000401 


104400 
104000 


004737 
102401 
102002 
104400 
000772 


112737 
012702 
004737 
005215 
004737 
102420 


004737 
004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 


040000 


000020 
040000 


004400 
000020 


004470 
005256 
004526 


005362 


000014 
010760 
005444 
005256 
005500 
004400 
000032 
004470 
005256 
004526 


001124 


MACY11 30(1046) 
START OF TESTS 


23: BIT 
3S: 
4S: BIT 


5S: JSR 


995: HLT 
1008: SCOPE 


>REWIND DRIVE 
A: 


995: 
100S: 


M 
27-OCT-77 


(R1) 

2$ 

WERR, (R1) 
99% 

1$ 

#SDWN, (R1) 
3$ 

#ERR, (R1) 
99% 

2$ 

PC, TIMON 
#SOWN, (R1) 
53 

TIMER (R3) 
PC, WAITROY 
99% 


PC, TIMOK 
100% 


PC,. REWIND 
995 

100% 

Q 


8 
13: 42 


PAGE 
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+ BRANCH WHEN 
*READY SETS 


+ TURN TIMER ON 
+BRANCH WHEN SWON = 0 


+GO TO TIMER & RETURN VIA RZ 
+WAIT FOR READY 


REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


+ TEST O14-TURN AROUND DELAY (FORWARD-REVERSE ) 
; THIS TEST MEASURES TIME FROM ‘GO'=1 (READ REVERSE) TO ‘ACCL'=0 


TSTO14: og 


1$: JSR 


3$: JSR 


#14, d#TSTNUM 
#2$,R2 

PC, WRITE 
(RS) 

PC, WAITRDY 
995 


PC, REVRD 
Pc, TIMON 
(RS) 
TCC(R5) 

3$ 

TIMER (RS) 
PC, WAITRDY 


99% 
PC, TIMOK 


>SET RETURN PC FROM TIMER 
*;WRITE A RECORD 
SET 'GO' BIT 


READ THE RECORD (REVERSE) 

: TURN TIMER ON 

*SET ‘GO’ BIT 

;WAIT FOR ‘ACCL' = 0 

>GO TO TIMER & RETURN VIA R2 


SEQ 0103 


5 Aa -D TMOZ DRIVE FUNCTION — 


TUDD. P11 


011004 


011006 
011010 


011012 
011020 
011024 
011030 
011032 
011036 
011040 
011044 


011046 
011052 


011054 
011060 
011064 


011066 
011072 
011074 


011100 
011104 
011106 
011112 


011114 
011116 


011120 
011126 
011132 
011136 
011140 
011144 
011146 
011152 
011156 
011162 


011164 
011166 
011170 


011174 
011200 
011202 
011206 
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000401 


104400 
104000 


112737 
012702 
004737 
005215 
004737 
102426 
004737 
005215 


004737 
102420 


004737 
004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 
000401 


104400 


104000 - 


112737 
012702 
004737 
005215 
004737 
102421 
004737 
004737 
004737 
005215 


005710 
001002 
000163 


004737 
102403 
004737 
000401 


000015 
011066 
005444 
005256 


005500 


005256 


005462 
004400 
000032 
004470 
005256 
004526 


000016 
011164 
005444 
005256 
004764 


005500 
004400 


004470 
005256 
004526 


001124 


001124 


MACY11 30(1046) 
START OF TESTS 


995: HLT 
100$: SCOPE 


N 
27-OCT-77 


100% 


8 
13:42 PAGE 24-7 


+ TEST 015- TURN AROUND er (REVERSE-FORWARD) 


i THIS TEST MEASURES TIME F 


TSTO15: MOVB 


1S: JSR 


2: TST 


33: JSR 


995: HLT 


1008: SCOPE 


#15, d#TSTNU 
#2$.R2 

PC, WRITE 
(R5) 

PC, WAITRDY 
995 

PC, REVRD 
(R5) 

PC, WAITRDY 
99% 

PC, READ 
PC, TIMON 
(R5) 
TCCRS) 

3$ 
TIMER(R3) 
PC, WAITRDY 
99% 

PC, TIMOK 
100% 


+ TEST 016-GAP SIZE (STOP HALF) 


TSTO16: MOVB 


1: TST 


#16. d#TSTNUM 


PC, WAITRDY 
99% 

PC, DELAY 
PC, REVROD 
PC, TIMON 
(R5) 

(RO) 

2$ 
TIMER(R3) 
PC, WAITRDY 
995 


PC, TIMOK 
100% 


OM 'GO'=1 (READ) TO ‘ACCL'=0. 


+ SET hae PC FROM TIMER 
*WRITE A RECORD 

SET ‘GO' 

;WAIT FOR READY 


READ A RECORD IN THE 
+SET ‘'GO' BIT 


+READ RECORD FORWARD 
+ TURN TIMER ON 

+SET 'GO' BIT 

*WAIT FOR ‘ACCL' = 0 


*GO TO TIMER & RETURN VIA RZ 


+SET RETURN PC FROM TIMER 
*WRITE A RECORD 
+SET 'GO' BIT 


DELAY. 350 MS 
“READ REVERSE RECORD- 

STURN TIMER ON 

SET 'GO' BIT oe 
;WAIT FOR FRAME COUNT > 0 
G0 TO TIMER & RETURN VIA R2 
;WAIT FOR READY BIT 10 SET 


CHECK TIME 


SEQ 0104 


ae -D THOZ DRIVE FUNCTION TIMER 


DD. P11 


011210 
011212 


011214 
011222 
011226 
011232 
011234 
011240 
011242 
011246 
911250 
011254 
011256 
011262 
011266 
011272 


011274 
011276 
011300 


011304 
011310 
011312 
011316 


011320 
011322 


011324 
011332 
011336 
011342 
011344 
011350 
011352 
011356 
011360 
011364 
011366 
011372 
011374 
011400 
011402 
011406 
011412 


011414 
011416 
011420 


011424 
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104400 
104000 


112737 


005215 


005710 
001002 
000163 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
012702 
004737 
005215 
004737 
102433 
004737 
005215 
004737 
102425 
004737 
005215 
004737 
102417 
004737 
004737 
005215 


005710 
001002 
006163 


"004737 
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000017 
011274 
005444 
005256 
005500 
005256 
004764 


005462 
004400 


004470 
005256 
004526 


000020 
011414 
005444 
005256 
005444 
005256 
005500 
005256 


005500 
004400 


004470 


005256 


995: HLT 

100$: SCOPE 

> TEST 017-GAP SIZE (START HALF) 

001124 TST01?: MOVB #17, d#TSTNUM 

MoV #1$,R2 
JSR PC, WRITE 
INC (R5) 
JSR PC, WAITRDY 
BVS 993 
JSR PC, REVRD 
INC (R5) 
JSR PC, WAITRDY 
BYS 995 
JSR PC, DELAY 
JSR READ 
JSR PC, TIMON 
INC (R5) 

1$: TST (RO) 
BNE 25 
JMP TIMER(R3) 

25: JSR PC.WAITRDY 
BYS 995 
JSR PC, TIMOK 
BR 100% 

995: HLT 

100$: SCOPE 


; TEST O20- GAP SIZE CINTERRECORD) 
; THIS TEST MEASURES TIME FROM 'GO'=1 TO 
#20, d&# TSTNUM 


MACY11 30(1046) 
START OF TESTS 


001124 TSTO20: MOVB 
M 


28: 


8 
27-OCT-77 


(R5) 

PC, WAITRDY 
998 

PC, WRITE 
(R5) 

PC, WAITRDY 
995 

PC, REVRD 
(R5) 

PC, WAITRDY 
995 

PC, REVRD 
PC, TIMON 
(R5) 

(RO) 


2$ 
TIMER(R3) 


PC,WAITRDY sw 


24-8 


SET RETURN PC FROM TIMER 
;WRITE A RECORD 

+SET ‘GO’ BIT 

;WAIT FOR READY 


READ REVERSE THE RECORD 

SET 'GO' BIT 

;WAIT FOR READY 

+ BRANCH ON ERROR 

;WAIT FOR TAPE MOTION TO STOP 
+READ RECORD 

+ TURN TIMER ON 

SET ‘GO’ BIT 


*WAIT FOR FRAME COUNT > 0 
+GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 

CHECK TIME 


"FC REG’ >0 


SET RETURN PC FROM TIMER 
;WRITE A RECORD 

;SET ‘GO’ BIT 

;WAIT FOR READY 

WRITE SECOND RECORD 

SET 'GO' BIT 

>WAIT FOR READY 

READ REVERSE SECOND RECORD 
;SET ‘GO’ BIT 

;WAIT FOR READY 

READ REVERSE FIRST RECORD 
; TURN TIMER ON 

*SET ‘'GO' BIT . 
;WAIT FOR FRAME COUNT > 0 
>GO TO TIMER & RETURN VIA R2 


/WAIT FOR READY 


SEQ 0105 


DZTUD-D TMOZ OR, VE FUNCTION TIMER 


DZ2TUDD. P11 


011430 
011432 
3854 011436 


011440 
011442 


3871 011444 
011452 
011456 
(1) 011462 
011464 
011470 
011474 
011500 
011502 
011506 
011510 
3881 011514 
011522 
011524 


011526 
011532 
011536 
011540 
011544 
011546 
3891 011550 


011552 
011556 
011562 
011566 


011570 
011574 
011576 
3901 011602 
011606 


011610 
011614 
011616 
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102403 
004737 
000401 


104400 
104000 


112737 
012702 
004737 
102530 
005037 
012700 
004737 
005215 
004737 
102516 
004737 
062737 
005300 
001363 


012700 
004737 
005215 
004737 
102477 
005300 
001370 


012790 
012701 
004737 
005215 


004737 
102463 
004737 
004737 
005215 


005765 
001002 
000163 
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004526 


000021 
011610 
005362 
001116 
000021 
005444 
005256 


005014 
000022 


000021 
005500 


005256 


000020 
001056 
005462 
005256 
005462 
004400 
000006 
004470 


001124 


001116 
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START OF TESTS 


BVS 99% 

JSR PC, TIMOK 

BR 100 
995: HLT ie 
100%: SCOPE 


+ TEST O21- GAP CONSISTANCY 

+ THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘FC REG' > O. 

+ THE TEST REWINOS THE TAPE,WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 
+BETWEEN EACH WRITE COMMAND. AFTER THE 17. RECORDS ARE WRITTTEN THE 
+;PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
+; TWEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 

i; THE 16 RECORDS WITH THE TIME BETEWEN GO=1 TO FC > O STORED IN ‘GAPTBL' 
;FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
; IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 


+AGED AND PLACED IN THE ‘ATIMTBL’ (BY SCOPE). 


;PEATED FOR EACH ITERATION. 


TSTO21: MOVB #21, d#TSTNUM 
MoV #4S,R2 
JSR PC,. REWIND 
BVS 99% 
CLR DELTIM 
MOV #17.,R0 

1$ JSR PC, WRITE 
INC (R5) 
JSR PC, WAITRDY 
BVS 99% 
JSR PC, DELAYV 
ADD #18.,DELTIM 
DEC RO 
BNE 1$ 
MOV #17. ,R0 

2: JSR PC, REVRD 
INC (RS) 
JSR PC, WAITRDY 
BVS 995 
DEC RO 
BNE 2$ 
MOV #16. -R0 
MoV #GAPTBL, R1 
JSR PC, READ 
INC (R5) 

35: JSR PC, WAITRDY 
BVS 998 
JSR PC, READ 
JSR PC, TIMON 
INC (R5) 

4S: TST FC(RS) 
BNE 


55 
JMP TIMER (R3) 


THE ABOVE PROCESS IS RE- 


SET RETURN PC FROM TIMER 
REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
+CLEAR VARIABLE DELAY TIME 
SET # OF RECORDS TO WRITE 
WRITE 17. RECORDS 

SET 'GO' BIT 

;WAIT FOR READY 


;DELAY BEFORE WRITING NEXT REC. 
+SET NEXT DELAY TIME 
;DECREMENT RECORDS WRITTEN COUNT 


;SET # OF RECS. TO REVERSE READ 
;REVERSE READ 17. RECORDS 

*SET ‘GO’ BIT 

;WAIT FOR READY 

>DECREMENT RECORD COUNT 

+SET # OF RECORDS TO READ 

SET PTR TO GAP TABLE FOR TEST 
READ A RECORD 

*SET ‘GO’ BIT 

;WAIT FOR READY 

*READ NEXT RECORD 

+ TURN TIMER ON 

+SET 'GO' BIT 

;WAIT FOR FRAME COUNT > 0 

/GO TO TIMER & RETURN VIA R2 


SEQ 0106 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


011622 
011626 
011630 
011632 
011634 


011636 
011642 
011646 


011652 
011654 
011660 
011664 
011672 


011674 
011700 


011742 


011744 
011746 


011750 


011756 
011764 
011770 
(1) 011774 
011776 
012002 
012004 
3956 012006 
012010 
012012 


012014 
012020 


27-OCT-77 13:17 


004737 
102446 
010421 
005300 
001355 


105037 
012700 
012701 


012104 
004737 
105237 
122737 
001367 


012700 
012701 
005002 


005256 


001122 
000020 
001056 


004636 
001122 
000020 


000020 
001056 


000004 


004737 
000401 


104400 
104000 


004526 


112737 000022 


000023 
012036 
005362 


005600 


112737 
012702 
004737 
102437 
004 337 
016030 
176340 
174700 
000060 
005215 


022710 
001004 


174700 


001122 


001124 


001124 


MACY11 30(1046) 
START OF TESTS 


53: JSR 


6S: MOV 


7$: ADD 


8$: ASR 


995: HLT 
100$: SCOPE 


0 
27-OCT-77 


PC, WAITRDY 
99% 

R4, (RID+ 
RO 

3$ 


o*#GAP 
#16 


. RO 
- RGAPTBL.R1 


(R1)+,R4 
PC, GAPOK 
o#GAP 
#16. . d#GAP 
6$ 


#16. ,RO 
#GAPTBL. RI 
R2 


R3 
(R1)+,R2 * 
R : 


+ TEST 022-DUMMY TEST 
; THIS TEST MEASURES NOTHING 


TSTO22: MOVB 


#22, d#TSTNUN 


; TEST 023-DATA TIME (2008P1) 


; THIS TEST MEASURES TIME FROM 'FC REG’ 


TST023: = 


#23, d#TSTNUM 

#3S,R2 

PC,. REWIND 
7$ 


#-1600.. (RO) 
2% 


9 
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24-10 


;WAIT FOR READY 


STORE TIME IN GAPTBL 
+DECREMENT # OF RECORDS READ 


;SET GAP # 0 


GET GAP TIEK COUNT 
i CHECK T 

SINCREMENT GAP & 

;BRANCH IF ALL GAPS NOT CHECKED 


+ SETUP TO AVERAGE GAP SIZES 
+SET PTR TO TABLE 
CLEAR ‘SUM’ REGISTERS 


>ADD ALL GAP SIZES TOGETHER 


;NOW DIVIDE BY 16. 
;BY SHIFTING 4 PLACES RIGHT 


;MOVE AVERAGED TIMES TO RY 
+ CHECK AVERAGED TIMES 


CHANGES TO ‘RDY'=1. 


SET RETURN PC FROM TIMER 
*REWIND SLAVE 

*>BRANCH IF ERROR ON REWIND 
;WRITE 800 WORD RECORD 
;SET WRITE BUFFER ADDRESS 
WORD COUNT 

;FRAME COUNT 

;WRITE COMMAND 

*SET ‘GO’ BIT 


;WAIT FOR FRAME COUNT TO CHANGE 


SEQ 0107 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
OZTUDD. P11 27-OCT-77 13:17 


012022 032711 040000 
012026 001022 
012030 000771 


012032 
(1) 012032 
012036 
012040 
012042 
012046 
3971 012052 
012054 
012056 
012060 
012064 
012066 


012072 


012074 
012076 


004737 004400 


004470 
000003 


005256 


004526 
o004n1 


104400 
104000 


000024 
012166 
005362 


000700 
005600 


012100 001124 
012106 
012112 
(1) 012116 
012120 
012126 
012132 
012134 
012136 
012140 
012142 


012144 
012150 
012152 
012156 
012160 


012162 
(1) 012162 
012166 
012170 
012172 


012176 


112737 
012702 
004737 
102442 
052765 
004 337 
016030 
173520 
167240 
000060 
005215 


022710 
001004 
032711 
001022 
000771 


000032 


167240 
040000 


004737 004400 

105711 : 
100402 

000163 004470 

012700 c00003 
006204 
005300 
001375 
004737 
102403 
004737 
006401 


104400 


005256 


004526 
012222 


012224 


E 
MACY11 30(1046) 27-OCT-77 
START OF TESTS 


- BIT #ERR, (R1) 
99% 


BNE 
BR 
25: 
JSR PC, TIMON 
35: TSTB (R1) 
BMI us 
JMP TIMER(R3) 
4S: MOV #3,R0 
55: ASR Py “* 
DEC RO 
BNE 5$ 
JSR PC,WAITRDY 
ByS 995 
JSR PC, TIMOK 
BR 100% 
995: HLT 
1005: SCOPE 


+ TEST O24-DATA TIME (S56BP 1) 

TSTOZ4: MOVB #24, d# TSTNUM 
MoV #3%,R2 

JSR PC,. REWIND 
99% 


BIS #BP 1SS56+NORM11, TCC(RS) 
JSR R3, THCMD 


WORD WTBUF 
WORD -2224. 
WORD -4448. 
.WORD WFHD 
INC (RS) 
1$: CMP #-4448. , (RO) 
BNE 23 
BIT #ERR. (R1) 
BNE 995 
BR 1% 
25: 
JSR PC, TIMON 
35: TSTB (R1) 
BMI US 
JMP TIMER(RI) 
4S: Mov #3,R0 
55: ASR RG 
DEC RO 
BNE 55 
JSR PC, WAITRDY 
BYVS 995 
JSR PC, TIMOK 
BR 100% 
99%: HLT 


9 
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24-11 


;MONITOR ERROR BIT 


+ TURN TIMER ON 
;WAIT FOR READY TO SET 


GO TO TIMER & RETURN VIA RZ 


+SET TO DIVIDE BY 8 
+BY SHIFTING RIGHT 3 PLACES 


+ CHECK TIME 


SET RETURN PC FROM TIMER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
;LOAD TAPE CONTROL REGISTER 
*WRITE 2224. WORD RECORD 


;SET ‘66° BIT 
; BRANCH WHEN WRITING BEGINS 
;MONITOR ERROR BIT 


; TURN TIMER ON 
BRANCH WHEN READY SETS 


;GO TO TIMER & RETURN VIA R2 
SET SHIFT COUNT 


> CHECK TIME 


SEQ 0108 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDE 


Pi 


012272 


012274 
012300 
012302 
012306 
012310 


012312 
012312 
012316 
012320 
012322 


012326 
012332 
012334 
012336 
012340 
012344 
012346 
012352 


012354 
012356 


012360 
012366 
012372 
012374 
012400 
012404 
012406 
012414 
012420 
012422 
012424 
012426 
012430 


012432 
012436 


27-OCT-77 
iS%S&6 


112737 


005215 


022710 
001004 
032711 
001022 
000771 


004737 
105711 
100402 
000163 


012700 
006204 
005300 
001375 
004737 
102403 
004737 
000401 


104400 
104000 


112737 
105737 
001046 
012702 
004737 
102437 
052765 
004 337 
016030 
171600 
163400 
000060 
005215 


022710 
001004 


13: 17 


000025 
012316 
005362 


001300 
005600 


163400 
040000 


004400 


004470 
000003 


005256 
004526 


000026 
001131 


012454 
005362 


002300 
005600 


163400 


100$: SCOPE 


001124 TSTO25. Mov 


000032 


995: 


1008: SCOPE 


MACY11 30(1046) 
START OF TESTS 


F 
27-OCT-77 


+ TEST O25-DATA TIME (800BP1) 
B #025, a#TSTNUN 
3$,R2 


PC,. REWIND 

995 

#BP I SOO+NORM11, TCCRS) 
3. THCHO 


#-6400. , (RO) 
2$ 

ERR, (R1) 
995 

1% 

PC, TIMON 
(R1) 

4$ 

TIMER(R) 


55 
PC, WAI TROY 
995 


PC, TIMOK 
100% 


TEST O026-DATA TIME (16008P 1) 


001124 TSTO26: MOVB 
TSTB 


#026, a8 TSTNUM 
JENRZFLG 
TSTO27__ 
#3$,.R2 
PC,. REWIND 

a4 


$ 
#PE1600+NORN11, TCCRS) 
R3. THCMD 
WTBUF 
- 3200. 
-6400. 
WF WO 
(R5) 


2% 


9 
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+ SET RETURN PC FROM TIMER 
+REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
+SET 800 BPI 

*WRITE 3200. WORD RECORD 


SET ‘GO’ BIT 
;WAIT FOR WRITING TO START 
+MONITOR ERROR BIT 


+ TURN TIMER ON 
; BRANCH WHEN READY SETS 


*GO TO TIMER & RETURN VIA RZ 
+ SET SHIFT COUNT 


>CHECK TIME 


>BRANCH IF DRIVE ‘NRZ ONLY’ 


SET RETURN PC FROM TIMER 
REWIND SLAVE 

>BRANCH IF ERROR ON REWIND 
SET 1600 BPI 

WRITE 3200. WORD RECORD 


*SET ‘GO’ BIT 
BRANCH WHEN WRITING STARTS 


SEQ 0109 








; G9 
DZTUD-D TMOZ DRIVE FUNCTION TIMER MACY11 30(1046) 27-OCT-77 13:42 PAGE 24-13 


DZTUDD. P11 27-OCT-77 13:17 START OF TESTS SEQ 0110 
W068 012440 032711 040000 BIT HERR, (R1) ;MONITOR ERROR BIT 
4069 012444 001017 BNE 995 
4070 012446 000771 BR 1$ 
4071 
4072 012450 25: 
(1) 012450 004737 O04400 JSR PC, TIMON ; TURN TIMER ON 
yO73 012454 105711 35: TSTB (RI) ;BRANCH WHEN READY SETS 
4074 012456 100402 BNI 4S 
4075 012460 000163 004470 JMP TIMER(R3) ;GO TO TIMER & RETURN VIA RZ 
4077 012464 006204 4S: ASR RY ;DIVIDE TIME BY 4 
4078 012466 006204 ASR RY 
4079 012470 004737 005256 JSR PC, WAITRDY 
4080 012474 102403 BVS 995 
4081 012476 004737 004526 JSR PC, TIMOK CHECK TIME 
yOs2 012502 000401 BR 100$ 
4083 
¥O84 012504 104400 995: HLT 
W085 01250 104000 1008: SCOPE 
O86 
4087 ; TEST 027-ERASE 
4088 ; THIS TST MEASURES TIME FROM ‘GO'=1 TO ‘ROY'=1. 
W089 012510 112737 000027 001124 TSTO27: MOVB #27, a#TSTNUM 
wO90 012516 012702 012544 Mov #15,R2 ; SET RETURN PC FROM TIMER 
W091 012522 004337 oO05e00 JSR R3, XRTNCHO 
y092 012526 000000 “WORD 0 
4093 012530 000000 “WORD 0 
yO94 012532 000000 “WORD 0 
¥O9S5 012534 000024 “WORD ERASE 
y096 012536 004737 o04400 JSR PC, TIMON ; TURN TIMER ON 
¥09? 012542, 005215 INC (RS) ;SET 'GO' BIT 
4 
4099 012544 105711 15. TSTB) (RI) “BRANCH WHEN READY SETS 
4100 012546 100402 BNI 25 
4101 012550 000163 004470 JMP TIMER(R3) GO TO TIMER & RETURN VIA RZ 
4102 
4103 012554 004737 005256 25: JSR PC, WAITRDY 
4104 012560 102403 : BVS 995 
4105 012562 004737 004526 JSR PC, TIMOK 
4106 012566 000%01 BR 100% 
410 
4108 012570 104400 998: HLT 
w109 012572 109090 1008: SCOPE 
wit 
W111 ; TEST-030 TAPE MARK ; 
112 z [THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘RDY*=1. 
¥113 012574 112737 600030 001124 TSTO30: MOVB #30, a#TSTNUN 
Wi14 012602 012702 012644 Mov #15,R2 SET RETURN PC FROM TIMER 
W115 012606 004737 005444 JSR PC, WRITE “WRITE A RECORD 
4116 012612 005215 INC (RS) :SET ‘GO’ BIT 
W117 012614 004737 005256 JSR PC, WAI TROY 
W118 012620 102423 BVS 998 
4119 012622 004337 005600 JSR R3, ae TMCHD 
4120 012626 806000 “WORD =O rans 
4121 012630 000000 WORD 0 


4122 012632 000000 .WORD 0 


DZTUD-0 TMOZ DRIVE FUNCTION TIMER 


DZ2TUDD. P11 


4123 
4124 
4125 
4126 
4127 
4128 
4129 


4130" 


4131 
4132 
41323 
4134 
41235 
4136 
4137 

t4) 

(|) 
4138 
4139 


012634 
012636 
012642 


012644 
012646 
012650 


012654 
012660 
012662 
012666 


012670 
012672 
012672 
012676 
12700 


27-OCT-77 13:17 


000026 
004737 
005215 


105711 
100402 
000163 


004737 
102403 
004737 
000401 


104400 
004737 


102774 
104000 


004400 


004470 
005256 
004526 


005362 


a: 
MACY11 3001046) 27-OCT-77 13:42 
START OF TESTS 


1$: 


23: 


995: 
100S: 


WF MK 
PC, TIMON 
(R5) 

(R1) 

2$ 
TIMER(R3) 
PC, WAITROY 
995 


PC, TIMOK 
100% 


PC,. REWIND 
99$ 


PAGE 


nn 


24-14 
SEQ 0111 


+ TURN TIMER ON 

*SET 'GO' BIT 

+BRANCH WHEN READY SETS 

+GO TO TIMER & RETURN VIA RZ 


;REWIND SLAVE 
;BRANCH iF ERROR ON REWIND 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZ2TUDD. P11 27-OCT-77 13:17 


4141 012702 012700 000012 
4142 012706 001376 
4143 012712 
4144 012714 
4145 012716 
4146 012724 
4147 012726 
4148 012732 
012736 
012742 
012746 
012752 
012756 
012764 
012766 
012772 
012776 
013002 
013010 
013012 


013016 
013022 
013024 
013030 
013034 
013042 
013044 
013046 
013052 
013054 
013060 
013064 
012070 
013072 
013074 
013076 
013100 
013102 
013104 


000100 


001006 
001007 
001010 
007274 
001007 
001010 
000010 


007030 
001007 
001006 
000010 


007030 
001127 
014173 


013060 
000042 


166056 


005237 
122737 
001402 
000137 
105037 
105237 
122737 
001402 
000137 


105737 
001004 
000004 
000137 
023737 
001401 
000000 
004737 
000005 
000137 
005237 
013700 
001405 
000005 
004710 
000240 
000240 
000240 
000137 


001007 


001006 


000046 


001772 
005750 


001000 
000042 


005750 


... 2 
MACY11 30(1046) 27-OCT-77 13:42 PAGE 
START OF TESTS 


FINISH: MOV #10.,R0 
1$: TYPE, CRLF 
DEC RO 
BNE 1$ 
BIT #SWO6, ASWR 
BEQ 2s 
MOVB O#ORVNUM, RO 
MOVB O#SLVNUM, R1 
MOVB OESLVPTR, RZ 
JMP d#TYPHOR ; 
23: INCE O#SLVNUM 
INC O#SLUPTR 
CMPB #8... O#SLVNUM 
BEQ 3$ 
JMP O*BEGIN 
3: CLRB d*#SLVNUM 
INCB d#DRVNUM 
CMPB #8. . d#ORVNUM 
BEQ END 
JMP O#BEGIN 
END: TSTB O#UNTFND 
BNE 1% 
TYPE, E. UNIT 
JMP @RENDPAS 
1$ CMP 0842, 0F46 
BEQ 2$ 
HALT 
2$: JSR PC, CKSWR 
RESET 
JMP a8 INIT 
ENDPAS: INC d*PASS 
MOV d#42,R0 
BEQ RETURN 
RESET 
ENDAD: JSR PC, (RO) 
NOP 
NOP 
NOP 
RETURN: JMP ae INIT 


24-15 
SEQ 0112 


+SET LINE FEED COUNT 


+SET NEXT SLAVE # 
AND ITS POINTER 
BRANCH IF LAST SLAVE (7) 


+BEGIN TEST ON NEXT SLAVE 
SET SLAVE #0 


AND INCREMENT DRIVE & 
;AND CHECK IF LAST DRIVE 


BRANCH IF A UNIT WAS FOUND 


7ACT11 AUTO MODE? 
/ YES 


, 


:CHECK FOR CNTL G 


7 RESTART 
+1 TO PASS CNT 


>BRANCH IF NO MONITOR 
>EXIT TO MONITOR 


i ee 


DZTUD-D THOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 


013110 


013116 
013124 
013130 
013134 
013136 
013144 
013152 
013156 
013160 
013162 
013164 
013166 


013170 
013174 


013176 
013202 
013206 
013210 


013214 
013220 
013222 
013224 
013226 
012232 
013236 


013240 
013242 


013244 
013252 
013256 
013262 
013264 
013272 
013300 
013304 
013306 
013310 
013312 
013314 


27-OCT-77 1 


012737 


112737 
012702 
004737 
102441 
052765 
052765 
004337 
016030 
177777 
063440 
000070 
005215 


022710 
101375 


004737 
023710 
103402 
000163 


012700 
006204 
005300 
001375 
004737 
004737 
000401 


104400 
104000 


112737 
012702 
004737 
102465 
052765 
052765 
004337 
016030 
177777 
076400 
006070 
005215 


3: 17 


013116 


000031 
013202 
005362 


001300 


000010 
005600 


001440 
004400 
013162 
004470 
000005 


005220 
004526 


000032 
013400 
005362 


001300 
000010 
005600 


001004 


001124 


000032 
000010 


001124 


000032 
000010 


MACY11 30(1046) 
START OF TESTS 


J 
27-OCT-77 


+SKEW TAPE TIMING TESTS 
+ THE “FOLLOWING TESTS REQUIRE A ° eahicueets WRITTEN 800 BPI SKEW TAPE 
SKEWTST: MOV i SE 


#TSTO31, O#SCPADR.. 


+ TEST O31- SKEW TAPE SPEED TEST-FORWARD 
+ THIS TEST READS 32" OF TAPE (26400. -800. 


9 
13:42 PAGE 24-16 


T SCOPE POINTER 


= 25600. FRAMES). THEN 


;DIVIDES TIME BY 32. TO GET TIME TO READ 1" (800. FRAMES) OF TAPE. 


TSTO31: 


10S: 
1$: 
28: 
38: 


4S: 


995: 
1008: 


; TEST 032-SKEW TAPE SPEED TEST-REVERSE 


MOVB 


HLT 
SCOPE 


#31, d¢TSTNUM 


#25.R2 
PC,. REWIND 


995 
#BP 1SOO+NORM11, TC(RS) 
#BAI,CS2(R5) 


R3, Xe THCHD 
ROBUF 
26400. 
ROFWD 

(RS) 


#800. . (RO) 
1$ 

PC. TIMON 
a# 10%, (RO) 
3$ 

TIMER (R3) 


PC, RHINIT 
PC. TIMOK 
100% 


+SET RETURN PC FROM TIMER 
REWIND SLAVE 

+BRANCH IF _ ON REWIND 
+SET 800 BP 

+ INHIBIT BUS ADDRESS INCREMENT 
READ 32" OF TAPE-FORWARD 


+FRAME COUNT 
SET 'GO' BIT 


;WAIT FOR FIRST 800 FRAMES 
;TO BE READ 


+ TURN TIMER ON 
+WAIT FOR READING TO FINISH 


;GO TO TIMER & RETURN VIA R2 
;DIVIDE TIME BY 32. 


> INIT DRIVE 
;CHECK TIME 


; THIS TEST READS FORWARD 40" (32000. FRAMES) OF TAPE. THEN READS REVERSE 


+32" (26400. -800. 


= 25600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 


; 32. TO GET TIME TO READ 1" (800. FRAMES) OF TAPE. 
TSTO32: ty 


10S: 


#32, d# TSTNUM 
#3$,R2 


PC,. REWIND 
938 


#BPISOO+NORMI1, (C(RS) 
#BAI,CSZ2(R5) 


R3, ae TNCMD 
ROBUF 
32000. 

ROF WD 

(RS) 


SET RETURN PC FROM TIMER 
REWIND SLAVE 
: BRANCH IF ERROR ON REWIND 


;READ FORWARD 32000. FRAMES 


WORD COUNT 
;FRAME COUNT 
READ FORWARD 
SET 'GO' BIT 


SEQ 0113 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZ2TUDD. P11 


013316 
013322 


013324 
013330 
013334 
013342 
013350 
“244 013354 
013356 
013360 
013362 
013364 


013366 
013372 


013374 
013400 
013404 
013406 


013412 
013416 
013420 
013422 
013424 
013430 
013434 


013436 
013440 
(1) 013440 
(1) O12444 
013446 


013450 


27-OCT-77 


023710 
101375 


004737 


00&215 


022710 
101375 


004737 
023710 
103402 
C00163 


012700 
006204 
005300 
001375 
004737 
004737 
000401 


104400 
004737 
102774 
104000 


000137 


13: 17 

013310 
005220 
004764 
001300 


000010 
005600 


001440 
004400 
013360 
004470 
000005 


005220 
004526 


005362 


012702 


000032 
000010 


MACY11 30(1046) 
START OF TESTS 


15: 


115: 


25: 


35: 


4S: 


5S: 


995: 
1008: 


K 
27-OCT-77 
0#10%, (RO) 
1$ 


PC,RHINIT 
PC. DELAY 


9 
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#BP |SOO+NORM11, TC(RS) 


#BAI,CS2(R5 


R3, ae TNCMD 
ROBUF 


~t. 

26400. 
ROREV 

(R5) 
#800. , (RO) 
2$ 

PC, TIMON 
#114, (RO) 
4$ 

TIMER (R3) 
#5,R0 

RY 

RO 

5% 

PC, RHINIT 


PC, TIMOK 
100% 


PC,. REWIND 
995 


aeF INISH 


24-17 


NIT DRIVE 
AIT FOR TAPE MOTION TO STOP 
. 800 BP! 


INHIBIT BUS ADDRESS INCRENENT 
READ REVERSE 32" OF TAPE 
READ BUFFER 

+WORD COUNT 

+FRAME COUNT 

READ REVERSE 

+SET 'GO' BIT 


;WAIT FOR FIRST 800 FRAMES 
TO BE READ 


+ TURN TIMER ON 
;WAIT FOR ALL FRAMES TO BE READ 


+GO TO TIMER & RETURN VIA R2 
;DIVIDE TIME BY 32 


. 
, 
, 

. 
’ 

. 
’ 


>REWIND SLAVE 
BRANCH IF ERROR ON REWIND 


SEQ 0114 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


4275 
4276 
4277 


4278 


4280 


4281 


4282 


4283 


4284 


4285 
4286 
4287 


4288 


013454 
013462 
013470 
013476 
013504 
013512 
013520 
013522 
013530 
013536 
013544 
013552 
013560 
013566 
013567 
013574 
013602 
013610 
013616 
013624 
013631 
013636 
013644 
013650 
013656 
013664 
013672 
013700 
013706 
013710 
013716 
013724 
013732 
013740 
013746 
013751 
013756 
013764 
013772 
014000 
014002 
014010 
014016 


014022 
014030 
014036 
014041 
014046 
014054 
014062 
014070 
014076 


27-OCT-77 13:17 


005015 


043117 
006505 


005015 
042520 


O43111 


052524 


042125 
054524 


051105 


050131 
031060 
042526 
052040 
052040 
020104 
051117 
020062 
020105 
052040 
046123 
023443 
041040 
052123 


042505 


030440 


047105 
052040 
000012 


051124 


042511 


033061 
042526 
052103 
044524 
042050 
042055 


042520 
052123 
042522 
020106 
047522 
020040 


020105 


052040 
051104 


050131 
053101 
020123 
020105 
042105 


020104 
020123 
020077 
047057 
027461 


047440 
024040 
047516 
030057 


020104 
050101 


050101 
047524 


047503 
046114 
020124 
051505 
041505 
006504 


. 2 
MACY11 30(1046) 27-OCT-77 13:42 PAGE 24-18 
PROGRAM MESSAGES 


. SBTTL PROGRAM MESSAGES 
OPERATOR INSTRUCTIONS 
M.NAM: .ASCIZ <CR<LF>*TUIG DRIVE FUNCTION TIMER (DZ2TUD-D)' 


1.REG: .ASCIZ <CRO<LF>'TYPE FIRST ADDRESS OF CONTROLLER ' 


.ORVS: .ASCIZ “TYPE TMOZ DRIVE #'S TO BE TESTED % 


.SLVS: . ASCII ‘FOR TNOZ2 DRIVE ' 


1.ORV: .ASCIZ %O- TYPE SLAVE #'S TO BE TESTED % 


. SKEW: .ASCIZ ‘SPEED TESTS ONLY? (YES/NO = 1/0)" 


1.NRZ: .ASCIZ '‘NRZ ONLY? (YES/NO = 170)" 


M.EOT; .ASCIZ <CR><LF>'END OF TAPE'<CR><LF> 


s ERROR MESSAGES 
E. TRPY: .ASCIZ <CR><LF>'TRAPPED TO 4° 


E.NCON: .ASCIZ ‘NO CONTROLLER AT ADDRESS SPECIFIED'<CR><LF> 


SEQ 0115 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 


DZTUDD. P11 


4289 


4290 
4291 


4292 


4293 


4294 


4295 
4296 


4297 


4298 


4299 


4300 


4301 


4302 
4303 
4304 


014104 
014106 
014114 
014122 
014130 
014136 
014140 
014146 
014154 
014162 
014170 
014173 
014200 
014206 
014214 
014222 
014230 
014236 
014241 
014246 
014254 
014262 
014265 
014272 
014275 
014302 
014310 
014314 
014322 
014330 
014336 
014344 
014350 
014356 
014364 
014372 
014376 
014404 
014412 
014420 
014423 
014430 
014436 
014444 
014452 
014460 
014464 
014472 


014474 
014502 
014510 
014516 
014524 
014532 


000012 


043440 
000040 


025052 
025052 
025052 
025052 
025052 
025052 


27-OCT-77 13:17 


031060 


046123 


047516 
044501 


050101 


025052 


025052 


042040 
000040 
020105 
053101 


020124 
040514 
047506 
052123 


051440 
042524 
031060 
020066 
020123 
042105 


020124 
020122 
024501 
020124 


044526 
051122 


041527 . 


041506 
042011 
052011 


047440 
043516 
047522 


042515 
051105 
042105 


046511 
044520 
040527 
020107 
042122 


021440 


025052 
025052 
025052 
025052 
025052 
025052 


n FY 
MACY11 3001046) 27-OCT-77 13:42 PAGE 24-19 





PROGRAM MESSAGES SEQ 0116 
E.NDORV: .ASCIZ ‘TMOZ DRIVE ' 
E.NSLV. .ASCII ‘DRIVE ' 
E.ORV: .ASCII ‘O SLAVE ' 
E.NAVA: .ASCIZ ‘QO NOT AVAILABLE FOR TEST'<CR><LF> 
E.UNIT: .ASCIZ ‘ALL SELECTED TMOZ2/TUI6 UNITS TESTED'<CR><LF> 
E.SFT: .ASCIZ ‘SOFT ERROR (DATA) '<CR><LF> 
E.HDR: .ASCIZ ‘TEST & ' 
E.HDR1: . ASCII ' DEVICE ERROR'<CR><LF> 

-ASCIZ 'CSI'<HT>'WC'<HT> 'BA'<HT>'FC'<HT>'CS2'<HT> ‘DS’ <HT> ER '<HT> TC’ <CR<LFD 

E.HDR2: .ASCIZ ‘' OUT OF RANGE ERROR'<CR><LF> 
E. TIMOV: -ASCIZ <CRO<LF>' TIMER OVERFLOWED'<CR><LF> 
E. TIMEX: -ASCIZ <CRO<LF>'TIME EXPIRED WAITING FOR RDY'<CR><LF> 
—.GAP: .ASCIZ ‘ GAP & ' 
+ TIME DOCUMENT LINES ; 
L. HOR): 2 ASCI2 “UOC REE EE EK 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZTUDD. P11 


4305 


4306 


4307 
4308 


4309 
4310 


4311 
4312 


4313 


4314 
4315 
4316 


4317 


4318 
4319 
4320 


4321 


014540 


014652 
014654 
014662 
014666 
014671 
014676 
014704 
014710 
014716 
014724 
014732 
014740 
014746 
014754 
014762 
014770 


014775 
015002 
015005 
015012 


015015 
015022 
015030 
015036 
015037 
015044 
015052 
015057 
015064 
015072 
015100 
015101 
015106 
015114 
015122 
015125 
015132 
015140 
015146 
015147 


27-OCT-77 
025052 ~ 


024514 


122 
036075 
101 
036514 


13: 17 
025052 


051505 
053111 


046123 
020043 


053440 
043040 
047502 


053440 
051440 
004411 
053440 
051440 
053517 


053440 
051440 


051106 
052117 


051040 


025052 
025052 
025052 
025052 
025052 
025052 


030115 
053111 
041516 
052040 
020055 
020105 


053101 


040510 
051105 


005015 
041516 
004411 
051450 
044506 
047117 
042515 
040525 

006 


042507 
040525 


044522 
047522 
004524 


044522 


004516 


044522 
052105 
053517 


040505 
046517 
004411 


040505 


MACY11 30(1046) 
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PROGRAM MESSAGES . SEQ 0117 
" 
L.HDOR2: . ASCII ‘k TMOZ DRIVE FUNCTION TIMES- DRIVE # ‘ 
L.ORV: .ASCII ‘O SLAVE # ' 
SV: .ASCHE ° , 
L. CHAN: .ASCIZ ‘9 CHAN. SER # ' 
L.HOR3: . ASCII ° ‘<CRO<LF>'K'<KCRD<LFD 
-ASCIZ ' FUNCTION’ <HT><HT> ‘TIME (SPECIFICATION) '<HT>' TIME (ACTUAL) ‘<CR><LF> 
iL. RNG: .ASCIZ '‘RANGE=<' 
L.ACT: .ASCIZ2 ‘ACTUAL=' 
+ TEST DESCRIPTOR HEADERS 
A.TOO1: .ASCIZ ‘kX WRITE FROM BOT'<HT> 
A. T0002: .ASCIZ ‘XX WRITE START'<HT><HT> 
A.TOO3: .ASCIZ ‘kX WRITE SHUTDOWN’ <HT> 
A. TOO4: .ASCIZ '‘X WRITE SETTLEDOWN'<HT> 
A. TO05: .ASCIZ ‘xk READ FROM BOT'<HT><HT> ; ‘ * 
A. TO06: .ASC!Z ‘k READ START'<HT><HT> 


DZTUD-0 TMOZ DRIVE FUNCTION — 


DZTUDD. P11 


4322 


4323 


4325 


4326 


4327 


4328 


4329 


4330 


4331 


4332 


4333 


4334 


4335 


015154 
015162 
015166 
015174 
015202 
015210 
015216 
015224 
015232 
015233 
015240 
015246 
015254 
015255 
015262 
015270 
015276 
015302 
015310 
015316 
015324 
015331 
015336 
015344 
015352 
015360 
015362 
015370 
015376 
015404 
015412 
015413 
015420 
015426 
015434 
015441 
015446 
015454 
015462 
015470 
015476 
015504 
015512 
015520 
015526 
015534 
015542 
015543 
015550 
015556 
015564 
015567 
015574 
015602 
015610 
015613 


27-OCT-77 13: 


052123 


053517 


051040 
042522 
051101 


051040 
042522 
052125 
000011 
042522 
053105 
046124 
004516 
052040 
051101 
042040 
043040 


052524 
047522 
042504 
026522 


043440 
055111 
050117 
004506 
043440 
055111 
051101 
043114 
040507 
042532 
051105 
042122 
040507 
051516 
041516 


042040 


042040 


051101 


042101 
042124 
000011 
042101 
046124 
004516 


040505 
020126 
004524 


040505 
020126 
047504 


042101 


046105 
051055 


047122 
047125 
040514 
004506 


050101 
026505 


004531 


052101 
042515 
050102 


052101 
042515 
050102 


052101 


MACY11 30(104%6) 
A. TO07: 
A. TO10: 
A. TO11: 
A. T012: 
A. TO13: 


A. TO14: 


A. TO15: 


A. TO16: 
A. TO17: 
A. T020: 
A. 7021: 
A. T023: 
A. TO24: 


A. T0258: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


/ASCIZ 


 ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


 ASCIZ 


. ASCIZ 


- ASCIZ 


.ASCIZ 


.ASCIZ 


.ASC!2 


B 10 
27-OCT-77 13:42 PAGE 24-21 
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'* 


id 


nam 


= 


= 


READ SHUTDOWN’ <HT><HT> 


READ SETTLEDOWN' <HT> 


READ REV START'<HT> 


READ REV SHUTDOWN’ <HT> 


READ REV SETTLEDOWN' <HT> 


TURN AROUND DELAY F-R'<HT> 


TURN AROUND DELAY R-F'<HT> 


GAP S|ZE-STOP HALF '<HT> 


GAP S!1ZE-START HALF '<HT> 


GAP SIZE-INTERRECOPD' <HT> 


GAP CONSISTANCY'<HT> 


DATA TIME-200BP1'<HT> 


DATA TIME-556BP1'<HT> 


DATA TIME-SOOBP I '<HT> 


SEQ 0118 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZ2TUDD. P11 13: 17 


4336 


4337 


4338 
4339 


4340 


015620 


015774 


015775 
016002 
016010 
016011 
016016 
016021 
016026 


01€030 


27-OCT-77 


020101 


000001 


044524 
030060 
00 


051101 


052040 
050123 
053506 


052040 
050123 
042522 


057012 
053523 


047040 
000 
037412 


042515 
050102 


052101 
042515 
041060 


051501 
020120 
000011 
052111 
042514 
004513 


050101 
042505 
004504 
050101 


042505 
004526 


000107 
036522 
053505 
005015 


MACY11 30(1046) 
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PROGRAM MESSAGES 


A. 1026. 


A. T027: 


A. TO30: . 


A. TO31: . 


A. T032: 


re 


. SHR: 


L. NEW: 
L. QUEST: 


. CNTG: 


. ASCIZ 


. ASCIZ 


. ASCIZ 
-ASCIZ 


-ASCIZ 


. EVEN 


ROBUF =. 
WTBUF =. 


. BLKW 
. END 


"k DATA TIME-1600BP | '<HT> 


‘xX ERASE GAP TIME '<HT> 


"X WRITE FILE MARK’ <HT? 


‘k TAPE SPEED-FWD'<HT> 


"k TAPE SPEED-REV'<HT> 


<CR><LF>" G' 
CCR><LF> 'SWR=' 


NEW: ' 


-ASCIZ <CRO<LF>'?'<CRD<LFD 


128 


SEQ 0119 


DZTUD-D TMOZ DRIVE FUNCTION TIMER 
DZ2TUDD. P11 


CNTLU 
CNTRLC= 


010704 
100000 
001414 
000016 
001132 
100000 
001014 
001016 
015015 


000003 


27-OCT-77 13:17 


CNTRLO= 
CNTRLU= 
CNVDEC 
CNVOCT 
CNVTAO 


ERRTRP 
ERRVEC= 


000017 
000025 
002732 
002624 
003262 
002744 


013016 
013074 
013060 
002000 
000014 
000024 


* 001125 


040000 
003652 
000004 


MACY11 30(1046) 
SYMBOL TABLE 


D 
27-OCT-77 


E.ORV 014130 
£.GAP 014464 
—E.HOR 014265 
E.HOR1 014275 
E.HORZ2 014350 
E.NAVA 014140 
E.NCON 014041 
E.NORV 014106 
E.NSLV 014122 
E.SFT 014241 
€. TIME O14423 
E.TIMO 014376 
E.TRPY 014022 
E.UNIT 014173 
FC = 000006 
FCE = 001000 
FINISH 012702 
FMT = 900020 
FPEVEC= 000244 
FRMCNT= 177400 
FWOSPC 005516 
GAP 001122 
GAP OK 004636 
GAPTBL 001056 

0 = 000001 
GTIMTB 001574 
HLT = 104400 

T = 000011 
108 = 000010 
iE = 000100 
ILF = 000001 
ILR == 000002 
INBUF 001266 
INCVAE= 000100 
INIT 005750 
1OTVEC= 000020 
IR = 000100 
ITCNT 001123 
1.0RV 013650 
1.ORVS 013567 
1.NRZ 013751 
1.REG 013522 
1. SKEW 013710 
1.SLVS 013631 
LF = 000012 
LKS = 177546 
LKVEC = 000100 
LPB = 177516 
LPS) = 177514 
L.ACT 015005 
L. CHAN 014671 
L.CNTG 015775 
L. DRV 014654 


10 
13:42 PAGE 25 


Pre rrrye 
z 
m 
= 


014474 
014607 
014710 
016011 
016021 
014775 
014666 
016002 
020000 
000400 
000250 
010000 
000024 
001000 
014002 
013454 
001674 
010000 
004000 
004000 
000000 
000300 
001131 
000400 
001120 
001146 
020000 
000200 
000100 
002242 
005750 
003150 
003054 
000114 
001000 
000020 
000200 
000040 
002000 
000024 
002000 
020000 
177772 
000240 
172540 
000104 
001126 
002000 
177776 
003350 
016030 
000070 
000076 


001770 © 


R10 =%000000 
R11 =%000001 
R12 =%000002 
Ri3  =%000003 
R14  =%000004 
R15 =%000005 


TBITVE 


oe _— 


000014 
000032 


SEQ 0120 


E 10 
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DZ2TUDD. P11 27-OCT-77 13:17 SYMBOL TABLE SEQ 0121 
TCRLF 002362 TRAPVE= 000034 TSTO21 011444 TYPHDR 007274 SCNTRL 002327 
TEMPST 001764 TRE = 040000 TSTO22 011750 TYPOCT 002632 SCRLF 002330 
T1B 001762 TRTVEC= 000014 TSTO23 011756 UBREAK= 177770 SFILL 002317 
TIMER 004470 TSTNUM 001124. TSTO2Z24 012100 UNS = O4000C $HT = 000011 
TIMERR 004500 TSTO01 007422 TST025 012230 UNTFND 001127 S$NULL 002316 
TIMERO 004514 TSTOO2 007506 TST026 012360 UPE = 020000 S$TKFLG 002321 
TIMER1 = OO4444 TSTOO3 007564 TSTO27 012510 WAITRD 005256 $TPB 002324 
TIMOK 004526 TSTOO4 007654 TSTO3O 012574 WAITT! 005260 STPFLG 002320 
TIMON 004400 TSTOOS 007762 TSTO31 013116 ae = 000002 STPS 002322 
TKB == 177562 TSTOO6 010046 TSTO32 013244 WCE = 040000 , = 016430 
TKISR 003610 TSTOO? 010132 TTIN 002244 WCHKF = 000050 _ HLT 003654 
TKS = 177560 TSTO10 010232 TTIN1 002264 WCHKR = 000056 . INPUT 003476 
TKVEC = 000060 TSTO11 010352 TTIN2 002300 WFMK = 000026 RESTO 002602 
TMBASE 001012 TSTO12 010450 TYPDEC 002740 WFWO = 000060 .REWIN 005362 
TNHCMD §=©6.005600 TSTO13 010560 TYPE = 000004 WROCNT= 177600 . SAVE 002560 
TMCS1 = 172440 TSTO14 010720 TYPE1 002354 WRITE  O05444 . SCOPE 004144 
TMK = =,_—« OO0004 TSTO1S 011012 TYPE2 002402 WRL = 004000 . TYPE 002334 
TPB == 177566 TSTO16 011120 TYPES 002410 WRT. BK 005536 

TPS) == 177564 TSTOI? §=011214 TYPE4Y 002414 WTBUF = 016030 

TPVEC = 000064 TSTO20 011324 TYPFLG 001130 SCHARC 002326 


. ABS. 016430 000 


ERRORS DETECTED: 0 


DZTUDD, DZTUDD=DZTUDD. SML.DZTUDD. P11 
RUN-TIME: 5 9 . 3 SECONDS 

RUN-TIME RATIO: 581715=37.4 

CORE USED: 20K (39 PAGES) 


